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
12