gcc/testsuite/gfortran.dg/print_fmt_2.f90

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