* cfghooks.c (verify_flow_info): Disable check that all probabilities
[official-gcc.git] / gcc / testsuite / gfortran.dg / comma_format_extension_4.f
blob3053d3fb14566f49b7b73e3ccc3073499bcf46c4
1 ! PR fortran/13257
2 ! Note the missing , before i1 in the format.
3 ! { dg-do run }
4 ! { dg-options "" }
5 character*6 c
6 write (c,1001) 1
7 if (c .ne. ' 1 ') call abort
9 1001 format (' ',i4' ')
10 end