CBCDEFGHIJKLMNOPQRSTUVWXYZ789012345678901234567890
C     .TITLE ERRTST
C
C  25 APR 73 - PAUL HENDERSON
C
      CHARACTER*40 NAME
      CALL SETERR ('L',19,18,3,25)
   1  CALL OPEN (1,'ERRTSTSRC')
      READ (1,*) NAME
      WRITE (4,*) ' AB ',NAME
      DO 2 K=1,5
      A=AMAX1 (5.)
      BE=-4
      B=0**BE
      C=ATAN2 (0.,0.)
C      WRITE (4,*) 'AMAX',A,B,C
   2  CONTINUE
      DO 3 K=1,3
      OFLO=1.23E50*4.56E65
   3  CONTINUE
      BE=7.89E-55
      DO 4 K=1,15
      C=BE*BE
   4  CONTINUE
      K=NERROR(4)
      WRITE (4,*) ' ERROR 4 OCCURRED',K,' TIMES'
      STOP 7
      END
