From 53747374f94953daa2a8fb58d366d14232e39dae Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sat, 6 Oct 2007 16:59:59 +0000 Subject: [PATCH] namelist_15.f90: Revise test. 2007-10-06 Jerry DeLisle * gfortran.dg/namelist_15.f90: Revise test. From-SVN: r129055 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/namelist_15.f90 | 18 +++++++++++------- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 70326245c70..5bd7518e71c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-10-06 Jerry DeLisle + + * gfortran.dg/namelist_15.f90: Revise test. + 2007-10-06 Alexandre Oliva PR tree-optimization/33655 diff --git a/gcc/testsuite/gfortran.dg/namelist_15.f90 b/gcc/testsuite/gfortran.dg/namelist_15.f90 index 233cf2275fc..e900e71d143 100644 --- a/gcc/testsuite/gfortran.dg/namelist_15.f90 +++ b/gcc/testsuite/gfortran.dg/namelist_15.f90 @@ -24,15 +24,19 @@ program namelist_15 write (10, '(A)') "&MYNML" write (10, '(A)') " x = 3, 4, 'dd', 'ee', 'ff', 'gg'," write (10, '(A)') " 4, 5, 'hh', 'ii', 'jj', 'kk'," - write (10, '(A)') " x%i = , ,-3, -4" - write (10, '(A)') " x(2)%m(1)%ch(2) ='q'," - write (10, '(A)') " x(2)%m(2)%ch(1)(1) ='w'," - write (10, '(A)') " x%m%ch(:)(2) = 'z','z','z','z','z','z','z','z'," - write (10, '(A)') "&end" + write (10, '(A)') " x(1)%i = , ," + write (10, '(A)') " x(2)%i = -3, -4" + write (10, '(A)') " x(2)%m(1)%ch(2)(1:1) ='q'," + write (10, '(A)') " x(2)%m(2)%ch(1)(1:1) ='w'," + write (10, '(A)') " x(1)%m(1)%ch(1:2)(2:2) = 'z','z'," + write (10, '(A)') " x(2)%m(1)%ch(1:2)(2:2) = 'z','z'," + write (10, '(A)') " x(1)%m(2)%ch(1:2)(2:2) = 'z','z'," + write (10, '(A)') " x(2)%m(2)%ch(1:2)(2:2) = 'z','z'," + write (10, '(A)') "/" rewind (10) read (10, nml = mynml, iostat = ier) - if (ier .ne. 0) print *, 'First read.' !call abort () + if (ier .ne. 0) call abort () close (10) open (10, status = "scratch", delim='apostrophe') @@ -40,7 +44,7 @@ program namelist_15 rewind (10) read (10, nml = mynml, iostat = ier) - if (ier .ne. 0) print *, 'Second read.' !call abort () + if (ier .ne. 0) call abort () close(10) if (.not. ((x(1)%i(1) == 3) .and. & -- 2.30.2