diff options
| author | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-01 21:25:11 +0000 |
|---|---|---|
| committer | toon <toon@138bc75d-0d04-0410-961f-82ee72b054a4> | 2000-12-01 21:25:11 +0000 |
| commit | b1163ab4dc6819f39a1fba67b4f1f1dd2e786d6b (patch) | |
| tree | 4ce8511cef74130f18e275b3cfb36aad1576571a | |
| parent | 0f882d54d438bc2fa7ed484e5b51724f57532e2a (diff) | |
| download | ppe42-gcc-b1163ab4dc6819f39a1fba67b4f1f1dd2e786d6b.tar.gz ppe42-gcc-b1163ab4dc6819f39a1fba67b4f1f1dd2e786d6b.zip | |
2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/20001201.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@37925 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20001201.f | 12 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c6d8ed6f709..59f9fa186e7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl> + + * g77.f-torture/execute/20001201.f: New test. + 2000-12-01 Joseph S. Myers <jsm28@cam.ac.uk> * gcc.dg/c99-array-nonobj-1.c: No longer XFAIL. diff --git a/gcc/testsuite/g77.f-torture/execute/20001201.f b/gcc/testsuite/g77.f-torture/execute/20001201.f new file mode 100644 index 00000000000..e80c2a8bcf8 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/20001201.f @@ -0,0 +1,12 @@ + 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 |
