/* EPC Imp to C Translation Release 4 Version Apr 95 */


#include "imptoc.h"

 
main() {
/*************************************************************************/
/**    A TEST TO CHECK THE LINE NUMBER OF A FAILURE AT RUN TIME         **/
/*************************************************************************/
int a [4+1];
int i;
void fred( void );
 fprintf(out_file, "%s", "This gives diagnostics showing i = 10\n");
 i=10;
 fred(&i);
 exit(0);
static void fred(int *j) {
if (*j<0) {
/**/
/**/
 exit(0);
} else  a [*j]=a [*j]+1;
/**/
}
exit(0);
}

/* end of automatic translation */