gcc/testsuite/gfortran.dg/fmt_unlimited.f90

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