blob: b1743a35622ec6e291ccc2be614549492ec717ec (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do run }
! PR65234 Output descriptor (*(1E15.7)) not accepted
program IOtest
character(40) :: str
double precision :: d = 5.0
write (str, '(*(2(E15.7)))') d, d
if (str /= " 0.5000000E+01 0.5000000E+01") call abort
write (str, '(*(2E15.7))') d, d
if (str /= " 0.5000000E+01 0.5000000E+01") call abort
end program
|