gcc/testsuite/gfortran.dg/print_fmt_3.f

   1 ! { dg-do compile }
   2 ! PR 23661 Make sure space between PRINT and variable name is not enforced in
   3 ! fixed form.
   4 ! Also tests the namelist case
   5       character(5) :: f = "(a)"
   6       real  x
   7       namelist /mynml/ x
   8       printf, "check"
   9       x = 1
  10       printmynml ! { dg-warning "extension" }
  11       end