diff options
| author | Toon Moene <toon@moene.indiv.nluug.nl> | 2002-04-19 23:52:11 +0200 |
|---|---|---|
| committer | Toon Moene <toon@gcc.gnu.org> | 2002-04-19 21:52:11 +0000 |
| commit | d106599fbc88c76bb87f2f6f1987a7115a3a0604 (patch) | |
| tree | f2b47da1e141d75afa4fde6ae6f4eba59d7bd607 /gcc/testsuite/g77.f-torture | |
| parent | 0f2a345797590236bd204906e511ff28beda52fe (diff) | |
| download | gcc-d106599fbc88c76bb87f2f6f1987a7115a3a0604.zip gcc-d106599fbc88c76bb87f2f6f1987a7115a3a0604.tar.gz gcc-d106599fbc88c76bb87f2f6f1987a7115a3a0604.tar.bz2 | |
re PR libf2c/6367 (multiple repeat counts confuse namelist read into array)
2002-04-19 Toon Moene <toon@moene.indiv.nluug.nl>
* PR6367
* g77.f-torture/execute/6367.f: New test.
* g77.f-torture/execute/6367.x: Disable for MMIX.
From-SVN: r52540
Diffstat (limited to 'gcc/testsuite/g77.f-torture')
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6367.f | 16 | ||||
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/6367.x | 8 |
2 files changed, 24 insertions, 0 deletions
diff --git a/gcc/testsuite/g77.f-torture/execute/6367.f b/gcc/testsuite/g77.f-torture/execute/6367.f new file mode 100644 index 0000000..158bddf --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/6367.f @@ -0,0 +1,16 @@ + program testnl + character*80 line + dimension a(10),b(10) + namelist /nl/ a + data a / 10 * 0.0 / + data b / 0., 1., 1., 1., 2., 2., 3., 3., 3., 0. / + data line /'&nl a(2) = 3*1.0, 2*2.0, 3*3.0 /'/ + open(1,status='scratch') + write(1,'(a)') line + rewind(1) + read(1,nl) + close(1) + do i = 1, 10 + if (a(i) .ne. b(i)) call abort + enddo + end diff --git a/gcc/testsuite/g77.f-torture/execute/6367.x b/gcc/testsuite/g77.f-torture/execute/6367.x new file mode 100644 index 0000000..027dcb5 --- /dev/null +++ b/gcc/testsuite/g77.f-torture/execute/6367.x @@ -0,0 +1,8 @@ +# Scratch files aren't implemented for mmixware +# (_stat is a stub and files can't be deleted). + +if { [istarget "mmix-knuth-mmixware"] } { + set torture_execute_xfail "mmix-knuth-mmixware" +} + +return 0 |