namelist_15.f90: Revise test.

2007-10-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	* gfortran.dg/namelist_15.f90: Revise test.

From-SVN: r129055

gcc/testsuite/ChangeLog

+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

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. &