fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / print_fmt_1.f90
blobf7622b57d80ffdf2587980f3d6e8a5121f356309
1 ! { dg-do run }
2 ! PR 23661
3 ! PRINT with a character format was broken
4 character(5) :: f = "(a)"
5 ! { dg-output "check" }
6 print f, "check"
7 end