gcc/testsuite/g77.f-torture/execute/10197.f

   1       IMPLICIT NONE
   2       LOGICAL ERROR
   3       CHARACTER*12 FORM
   4       DATA ERROR /.FALSE./
   5       DATA FORM  /' '/
   6       OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255)
   7       INQUIRE(UNIT=60,FORM=FORM)
   8       IF (FORM.EQ.'UNFORMATTED') THEN
   9          ERROR = .FALSE.
  10       ELSE
  11          ERROR = .TRUE.
  12       ENDIF
  13       CLOSE(UNIT=60)
  14       IF (ERROR) CALL ABORT
  15       END