diff options
Diffstat (limited to 'gcc/testsuite/g77.f-torture/execute/10197.f')
-rw-r--r-- | gcc/testsuite/g77.f-torture/execute/10197.f | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/10197.f b/gcc/testsuite/g77.f-torture/execute/10197.f new file mode 100644 index 00000000000..0fa81f67809 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/10197.f @@ -0,0 +1,15 @@ + IMPLICIT NONE + LOGICAL ERROR + CHARACTER*12 FORM + DATA ERROR /.FALSE./ + DATA FORM /' '/ + OPEN(UNIT=60,ACCESS='DIRECT',STATUS='SCRATCH',RECL=255) + INQUIRE(UNIT=60,FORM=FORM) + IF (FORM.EQ.'UNFORMATTED') THEN + ERROR = .FALSE. + ELSE + ERROR = .TRUE. + ENDIF + CLOSE(UNIT=60) + IF (ERROR) CALL ABORT + END |