diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2000-12-01 22:25:11 +0100 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2000-12-01 21:25:11 +0000 |
| commit | 042db57ecfe619f037f58d62798036e5fd822358 (patch) | |
| tree | 4ce8511cef74130f18e275b3cfb36aad1576571a /gcc/testsuite/g77.f-torture | |
| parent | c1428b53621c229c7dc75a94a3e99248224b6e50 (diff) | |
| download | gcc-042db57ecfe619f037f58d62798036e5fd822358.zip gcc-042db57ecfe619f037f58d62798036e5fd822358.tar.gz gcc-042db57ecfe619f037f58d62798036e5fd822358.tar.bz2 | |
20001201.f: New test.
2000-12-01 Toon Moene <toon@moene.indiv.nluug.nl>
* g77.f-torture/execute/20001201.f: New test.
From-SVN: r37925
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/20001201.f | 12 |
1 files changed, 12 insertions, 0 deletions
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 0000000..e80c2a8 --- /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 |