gcc-4.9/gcc/testsuite/gfortran.dg/print_fmt_1.f90


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