From d106599fbc88c76bb87f2f6f1987a7115a3a0604 Mon Sep 17 00:00:00 2001 From: Toon Moene Date: Fri, 19 Apr 2002 23:52:11 +0200 Subject: [PATCH] re PR libf2c/6367 (multiple repeat counts confuse namelist read into array) 2002-04-19 Toon Moene * PR6367 * g77.f-torture/execute/6367.f: New test. * g77.f-torture/execute/6367.x: Disable for MMIX. From-SVN: r52540 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/g77.f-torture/execute/6367.f | 16 ++++++++++++++++ gcc/testsuite/g77.f-torture/execute/6367.x | 8 ++++++++ 3 files changed, 30 insertions(+) create mode 100644 gcc/testsuite/g77.f-torture/execute/6367.f create mode 100644 gcc/testsuite/g77.f-torture/execute/6367.x diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8cf71e96409..0042764395a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2002-04-19 Toon Moene + + * PR6367 + * g77.f-torture/execute/6367.f: New test. + * g77.f-torture/execute/6367.x: Disable for MMIX. + 2002-04-19 Mark Mitchell * PR6352 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 00000000000..158bddf8f47 --- /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 00000000000..027dcb5ccae --- /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 -- 2.30.2