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/testsuite/gfortran.dg/der_array_io_3.f90 | |
| parent | 6d56728a759c9db12b2acd468fd2c1cdc56d7ead (diff) | |
| download | gcc-ee25d4cbe310fb88f30e64ed49be405e98cf2300.tar.gz | |
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/testsuite/gfortran.dg/der_array_io_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/der_array_io_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/der_array_io_3.f90 b/gcc/testsuite/gfortran.dg/der_array_io_3.f90 index 7898a1e8c5c..ae89b3dce78 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 |