diff options
| author | Thomas Koenig <Thomas.Koenig@online.de> | 2005-07-30 20:56:02 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2005-07-30 20:56:02 +0000 |
| commit | ee25d4cbe310fb88f30e64ed49be405e98cf2300 (patch) | |
| tree | bac4e4e9d60e6e3b85d5b1f53af4caaac8a35c59 /gcc | |
| parent | 6d56728a759c9db12b2acd468fd2c1cdc56d7ead (diff) | |
| download | gcc-ee25d4cbe310fb88f30e64ed49be405e98cf2300.zip gcc-ee25d4cbe310fb88f30e64ed49be405e98cf2300.tar.gz gcc-ee25d4cbe310fb88f30e64ed49be405e98cf2300.tar.bz2 | |
comma_format_extension_4.f: Adjust length of string for format.
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.
From-SVN: r102591
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/comma_format_extension_4.f | 2 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_array_io_1.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_array_io_2.f90 | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_array_io_3.f90 | 4 |
5 files changed, 16 insertions, 7 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2980e1c..0fb031b 100644 --- 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 --- 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 --- 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 --- 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 --- 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 |