summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/print_fmt_1.f90
blob: f7622b57d80ffdf2587980f3d6e8a5121f356309 (plain)
1
2
3
4
5
6
7
! { dg-do run }
! PR 23661
! PRINT with a character format was broken
character(5) :: f = "(a)"
! { dg-output "check" }
print f, "check"
end