C TEST FOR PATCH 450202 TO FORTRAN V2.5 JANUARY 1981 DISPATCH OPEN(UNIT=1,NAME='WHERE.DAT',TYPE='OLD',ERR=10) CLOSE(UNIT=1) GO TO 50 10 CALL ERRSNS(IERR,ILUN) WRITE(5,20) IERR,ILUN 20 FORMAT(' ERROR # ',I3,' WHILE OPENING UNIT #',I3) 50 STOP END