last few day's work

[unix-history] / usr / src / usr.bin / pascal / libpc / CASERNG.c

/* Copyright (c) 1982 Regents of the University of California */

static char sccsid[] = "@(#)CASERNG.c 1.1 %G%";

CASERNG(val)
       int val;
{
       ERROR("Label of %D not found in case\n", val);
}