| ! { 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 |