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
16