https://gcc.gnu.org/g:eeccfad6a6352fb7a39b359fe7b569717f735cce
commit r16-5184-geeccfad6a6352fb7a39b359fe7b569717f735cce Author: Jerry DeLisle <[email protected]> Date: Tue Nov 11 19:29:36 2025 -0800 Fortran: Update test case. [PR36725] PR libfortran/36725 gcc/testsuite/ChangeLog: * gfortran.dg/fmt_g0_4.f08: Change test case from compile only to compile and run. Adjust test conditions. Diff: --- gcc/testsuite/gfortran.dg/fmt_g0_4.f08 | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/gcc/testsuite/gfortran.dg/fmt_g0_4.f08 b/gcc/testsuite/gfortran.dg/fmt_g0_4.f08 index fff6580ebf91..e93ed7f5809d 100644 --- a/gcc/testsuite/gfortran.dg/fmt_g0_4.f08 +++ b/gcc/testsuite/gfortran.dg/fmt_g0_4.f08 @@ -1,15 +1,16 @@ -! { dg-do compile } +! { dg-do run } ! { dg-options "-std=f2008" } ! PR36725 Compile time error for g0 edit descriptor character(30) :: line write(line, '(g0.3)') 0.1 -if (line.ne." 1.000E-01") STOP 1 +if (line.ne."0.100") STOP 1 write(line, '(g0.9)') 1.0 -if (line.ne."1.000000000E+00") STOP 2 +if (line.ne."1.00000000") STOP 2 write(line, '(g0.5)') 29.23 -if (line.ne." 2.92300E+01") STOP 3 +if (line.ne."29.230") STOP 3 write(line, '(g0.8)') -28.4 -if (line.ne."-2.83999996E+01") STOP 4 +if (line.ne."-28.400000") STOP 4 write(line, '(g0.8)') -0.0001 -if (line.ne."-9.99999975E-05") STOP 5 +if (line.ne."-0.99999997E-04") STOP 5 end +
