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
This commit is contained in:
parent
6d56728a75
commit
ee25d4cbe3
@ -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>
|
2005-07-30 James A. Morrison <phython@gcc.gnu.org>
|
||||||
|
|
||||||
* gcc.dg/fold-abs-4.c: new test.
|
* gcc.dg/fold-abs-4.c: new test.
|
||||||
|
@ -2,7 +2,7 @@
|
|||||||
! Note the missing , before i1 in the format.
|
! Note the missing , before i1 in the format.
|
||||||
! { dg-do run }
|
! { dg-do run }
|
||||||
! { dg-options "" }
|
! { dg-options "" }
|
||||||
character*5 c
|
character*6 c
|
||||||
write (c,1001) 1
|
write (c,1001) 1
|
||||||
if (c .ne. ' 1 ') call abort
|
if (c .ne. ' 1 ') call abort
|
||||||
|
|
||||||
|
@ -17,8 +17,8 @@ program main
|
|||||||
foo(i)%z = 100*i+40
|
foo(i)%z = 100*i+40
|
||||||
enddo
|
enddo
|
||||||
|
|
||||||
print (buf1, '(20i4)'), foo
|
write (buf1, '(20i4)') foo
|
||||||
print (buf2, '(20i4)'), (foo(i)%x, (foo(i)%y(j), j=1,3), foo(i)%z, i=1,4)
|
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
|
if (buf1.ne.buf2) call abort
|
||||||
end program main
|
end program main
|
||||||
|
@ -23,7 +23,7 @@ program main
|
|||||||
foo(2)%z = 50
|
foo(2)%z = 50
|
||||||
foo(2)%a = "HELLO WORLD"
|
foo(2)%a = "HELLO WORLD"
|
||||||
|
|
||||||
print (buf1,*), foo
|
write (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 (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
|
if (buf1.ne.buf2) call abort
|
||||||
end program main
|
end program main
|
||||||
|
@ -7,7 +7,7 @@ program main
|
|||||||
end type foo_type
|
end type foo_type
|
||||||
type (foo_type) :: foo
|
type (foo_type) :: foo
|
||||||
! foo = foo_type("hello world ")
|
! foo = foo_type("hello world ")
|
||||||
print (buf1,*), foo
|
write (buf1,*) foo
|
||||||
print (buf2,*), (foo%name(i), i=1,13)
|
write (buf2,*) (foo%name(i), i=1,13)
|
||||||
if (buf1.ne.buf2) call abort
|
if (buf1.ne.buf2) call abort
|
||||||
end program main
|
end program main
|
||||||
|
Loading…
Reference in New Issue
Block a user