xref: /original-bsd/usr.bin/f77/libU77/test/serrno_.c (revision abb30312)

extern int errno;
serrno_(n)
long *n;
{	errno = *n; }