diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-06 16:59:59 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-10-06 16:59:59 +0000 |
commit | 53747374f94953daa2a8fb58d366d14232e39dae (patch) | |
tree | e93f0da84b97b7138bded9857ecb32c73a736594 /gcc | |
parent | 6f95a65aa12189f267de958ceb995f40e603131e (diff) | |
download | gcc-53747374f94953daa2a8fb58d366d14232e39dae.zip gcc-53747374f94953daa2a8fb58d366d14232e39dae.tar.gz gcc-53747374f94953daa2a8fb58d366d14232e39dae.tar.bz2 |
namelist_15.f90: Revise test.
2007-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
* gfortran.dg/namelist_15.f90: Revise test.
From-SVN: r129055
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
-rw-r--r-- | 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 7032624..5bd7518 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + * gfortran.dg/namelist_15.f90: Revise test. + 2007-10-06 Alexandre Oliva <aoliva@redhat.com> PR tree-optimization/33655 diff --git a/gcc/testsuite/gfortran.dg/namelist_15.f90 b/gcc/testsuite/gfortran.dg/namelist_15.f90 index 233cf22..e900e71d 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. & |