[unix-history] / .ref-6294d633e80db8e89697db796e6f6025d5af0cae / usr / src / usr.bin / f77 / libU77 / test / serrno_.c

/*-
 * Copyright (c) 1980 The Regents of the University of California.
 * All rights reserved.
 *
 * %sccs.include.proprietary.c%
 */

#ifndef lint
static char sccsid[] = "@(#)serrno_.c	5.2 (Berkeley) %G%";
#endif /* not lint */

extern int errno;
serrno_(n)
long *n;
{	errno = *n; }
Commit	Line	Data
82492b51 KB	1	/*-
	2	* Copyright (c) 1980 The Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* %sccs.include.proprietary.c%
	6	*/
	7
	8	#ifndef lint
	9	static char sccsid[] = "@(#)serrno_.c 5.2 (Berkeley) %G%";
	10	#endif /* not lint */
	11
ce98d85e KB	12	extern int errno;
	13	serrno_(n)
	14	long *n;
	15	{ errno = *n; }