X-Git-Url: https://oss.titaniummirror.com/gitweb/?a=blobdiff_plain;f=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F20001201.f;fp=gcc%2Ftestsuite%2Fg77.f-torture%2Fexecute%2F20001201.f;h=0000000000000000000000000000000000000000;hb=6fed43773c9b0ce596dca5686f37ac3fc0fa11c0;hp=e80c2a8bcf85d174f204f1ac41794166336069e2;hpb=27b11d56b743098deb193d510b337ba22dc52e5c;p=msp430-gcc.git diff --git a/gcc/testsuite/g77.f-torture/execute/20001201.f b/gcc/testsuite/g77.f-torture/execute/20001201.f deleted file mode 100644 index e80c2a8b..00000000 --- a/gcc/testsuite/g77.f-torture/execute/20001201.f +++ /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