gcc/testsuite/gfortran.dg/fmt_g_1.f90

   1 ! { dg-do run }
   2 ! PR59771 Cleanup handling of Gw.0 and Gw.0Ee format
   3 ! Test case prepared by Dominique d'Humieres <dominiq@lps.ens.fr>
   4        PROGRAM FOO
   5        character(len=60) :: buffer, buffer1
   6
   7        write (buffer ,'(6(1X,1PG9.0e2))') 0.0, 0.04, 0.06, 0.4, 0.6, 243.0
   8        write (buffer1,'(6(1X,1PE9.0e2))') 0.0, 0.04, 0.06, 0.4, 0.6, 243.0
   9
  10        if (buffer /= buffer1) call abort
  11        end