date and time created 81/02/18 21:49:27 by dlw

[unix-history] / usr / src / usr.bin / f77 / libU77 / ierrno_.c

/*
char id_ierrno[] = "@(#)ierrno_.c       1.1";
*
* return the current value of the system error register
*
* calling sequence:
*      ier = ierrno()
* where:
*      ier will receive the current value of errno
*/

extern int errno;

long ierrno_()
{
       return((long)errno);
}