%BEGIN
!***********************************************************************
!*    A TEST TO CHECK THE LINE NUMBER OF A FAILURE AT RUN TIME         *
!***********************************************************************
%INTEGERARRAY A(0:4)
%INTEGER I
I=10
%IF 1<0 %THEN %START
      !
      !
      %STOP
%FINISH %ELSE A(I)=A(I)+1
      !
%ENDOFPROGRAM