
%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
