2005-07-30 Thomas Koenig <Thomas.Koenig@online.de>

        * gfortran.dg/comma_format_extension_4.f:  Adjust length
        of string for format.
        * gfortran.dg/der_array_io_1.f:  Replace illegal internal
        print statement with internal write.
        * gfortran.dg/der_array_io_2.f:  Likewise.
        * gfortran.dg/der_array_io_3.f:  Likewise.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102591 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2980e1c..0fb031b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+2005-07-30  Thomas Koenig  <Thomas.Koenig@online.de>
+
+       * gfortran.dg/comma_format_extension_4.f:  Adjust length
+       of string for format.
+       * gfortran.dg/der_array_io_1.f:  Replace illegal internal
+       print statement with internal write.
+       * gfortran.dg/der_array_io_2.f:  Likewise.
+       * gfortran.dg/der_array_io_3.f:  Likewise.
+
 2005-07-30  James A. Morrison  <phython@gcc.gnu.org>
 
        * gcc.dg/fold-abs-4.c: new test.

diff --git a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f b/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
index 138c163..3053d3f 100644 (file)
--- a/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
+++ b/gcc/testsuite/gfortran.dg/comma_format_extension_4.f
@@ -2,7 +2,7 @@
 ! Note the missing , before i1 in the format.
 ! { dg-do run }
 ! { dg-options "" }
-      character*5 c
+      character*6 c
       write (c,1001) 1
       if (c .ne. '    1 ') call abort
 

diff --git a/gcc/testsuite/gfortran.dg/der_array_io_1.f90 b/gcc/testsuite/gfortran.dg/der_array_io_1.f90
index 5bfd0c6..b43864d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_1.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_1.f90
@@ -17,8 +17,8 @@ program main
      foo(i)%z = 100*i+40
   enddo
 
-  print (buf1, '(20i4)'), foo
-  print (buf2, '(20i4)'), (foo(i)%x, (foo(i)%y(j), j=1,3), foo(i)%z, i=1,4)
+  write (buf1, '(20i4)')  foo
+  write (buf2, '(20i4)')  (foo(i)%x, (foo(i)%y(j), j=1,3), foo(i)%z, i=1,4)
 
   if (buf1.ne.buf2) call abort
 end program main

diff --git a/gcc/testsuite/gfortran.dg/der_array_io_2.f90 b/gcc/testsuite/gfortran.dg/der_array_io_2.f90
index 5d4a7ce..c62fd1e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_2.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_2.f90
@@ -23,7 +23,7 @@ program main
   foo(2)%z = 50
   foo(2)%a = "HELLO WORLD"
 
-  print (buf1,*), foo
-  print (buf2,*), ((foo(i)%x(j),j=1,3), (foo(i)%y(j),j=1,4), (foo(i)%z(j),j=1,5), (foo(i)%a(j),j=1,3), i=1,2)
+  write (buf1,*)  foo
+  write (buf2,*) ((foo(i)%x(j),j=1,3), (foo(i)%y(j),j=1,4), (foo(i)%z(j),j=1,5), (foo(i)%a(j),j=1,3), i=1,2)
   if (buf1.ne.buf2) call abort
 end program main

diff --git a/gcc/testsuite/gfortran.dg/der_array_io_3.f90 b/gcc/testsuite/gfortran.dg/der_array_io_3.f90
index 7898a1e..ae89b3d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/der_array_io_3.f90
+++ b/gcc/testsuite/gfortran.dg/der_array_io_3.f90
@@ -7,7 +7,7 @@ program main
   end type foo_type
   type (foo_type) :: foo
 !  foo = foo_type("hello world ")
-  print (buf1,*), foo
-  print (buf2,*), (foo%name(i), i=1,13)
+  write (buf1,*)  foo
+  write (buf2,*)  (foo%name(i), i=1,13)
   if (buf1.ne.buf2) call abort
 end program main