xref: /csrg-svn/usr.bin/pascal/libpc/RANG4.c (revision 1678)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)RANG4.c 1.1 10/30/80";
4 
5 #include "h01errs.h"
6 
7 RANG4(value, lower, upper)
8 
9 	int	value;
10 	int	lower;
11 	int	upper;
12 {
13 	if (value < lower || value > upper) {
14 		ERROR(ERANGE, value);
15 		return;
16 	}
17 	return	value;
18 }
19