mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
11 lines
328 B
Fortran
11 lines
328 B
Fortran
! { 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") STOP 1
|
|
write (str, '(*(2E15.7))') d, d
|
|
if (str /= " 0.5000000E+01 0.5000000E+01") STOP 2
|
|
end program
|