xref: /csrg-svn/usr.bin/f77/libU77/ierrno_.c (revision 2520)
1*2520Sdlw /*
2*2520Sdlw char id_ierrno[] = "@(#)ierrno_.c	1.1";
3*2520Sdlw  *
4*2520Sdlw  * return the current value of the system error register
5*2520Sdlw  *
6*2520Sdlw  * calling sequence:
7*2520Sdlw  *	ier = ierrno()
8*2520Sdlw  * where:
9*2520Sdlw  *	ier will receive the current value of errno
10*2520Sdlw  */
11*2520Sdlw 
12*2520Sdlw extern int errno;
13*2520Sdlw 
14*2520Sdlw long ierrno_()
15*2520Sdlw {
16*2520Sdlw 	return((long)errno);
17*2520Sdlw }
18