BEGIN
!***********************************************************************
!*    A TEST TO CHECK THE LINE NUMBER OF A FAILURE AT RUN TIME         *
!***********************************************************************
INTEGERARRAY A(0:4)
INTEGER I
routinespec fred(integername j)
      printstring("This gives diagnostics showing i = 10
")
   I=10
fred(i)
stop
routine fred(integername j)
IF j<0 THEN START
      !
      !
      STOP
FINISH ELSE A(j)=A(j)+1
      !
end
ENDOFPROGRAM