]> oss.titaniummirror.com Git - msp430-gcc.git/blobdiff - gcc/testsuite/g77.f-torture/execute/20001201.f
Imported gcc-4.4.3
[msp430-gcc.git] / gcc / testsuite / g77.f-torture / execute / 20001201.f
diff --git a/gcc/testsuite/g77.f-torture/execute/20001201.f b/gcc/testsuite/g77.f-torture/execute/20001201.f
deleted file mode 100644 (file)
index e80c2a8..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-      LOGICAL TF(5)
-      CHARACTER*60 LINE
-      NAMELIST /LIST/ TF,TT,FF,XYZ
-      DATA TF /5*.FALSE./
-      DATA LINE /'&LIST,TF=.T.,.F.,.T.,FF=33.,TT=23.,XYZ=-1234.55,/'/
-      OPEN(1,STATUS='SCRATCH')
-      WRITE(1,*) LINE
-      REWIND(1)
-      READ(1,LIST)
-      CLOSE(1)
-      IF (TF(5)) CALL ABORT
-      END