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, 0 insertions, 15 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/10197.f b/gcc/testsuite/g77.f-torture/execute/10197.f deleted file mode 100644 index 0fa81f67809..00000000000 --- a/gcc/testsuite/g77.f-torture/execute/10197.f +++ /dev/null @@ -1,15 +0,0 @@ - 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 |