xref: /original-bsd/usr.bin/pascal/libpc/CASERNG.c (revision bbb96de4)
1 /*-
2  * Copyright (c) 1982 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)CASERNG.c	1.2 (Berkeley) 04/09/90";
10 #endif /* not lint */
11 
12 CASERNG(val)
13 	int val;
14 {
15 	ERROR("Label of %D not found in case\n", val);
16 }
17