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