------- Comment #1 from jblomqvi at cc dot hut dot fi 2005-10-11 05:55 -------
Consider this testcase (from 24174):
! { dg-do run }
! PR 24174
program kind10_io
real(kind=10) :: a,b(2), c
complex(kind=10) :: d, e, f(2)
character(len=180) :: tmp
! Test real(10) scalar and array formatted IO
b(:) = 2.0_10
write (tmp, *) b
read (tmp, *) a, c
if (a /= 2.0_10) call abort()
if (c /= 2.0_10) call abort()
! Complex(10) scalar and array formatted and list formatted IO
f = cmplx ( 1.0_10, 2.0_10, 10)
d = cmplx ( huge (1.0_10), huge (2.0_10), 10)
write (tmp, *) d
read (tmp, *) e ! List formatted read doesn't work.
if (e /= d) call abort()
write (tmp, '(2(e12.4e5, 2x))') d
read (tmp, '(2(e12.4e5, 2x))') e ! Read doesn't work either
if (e /= d) call abort()
end program kind10_io
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24305
