2017-02-20 Paul Thomas <pault@gcc.gnu.org>
[official-gcc.git] / gcc / testsuite / gfortran.dg / print_fmt_2.f90
blobc7a5cc146140e7f4355919df311fd0844a6383b0
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