print_fmt_1.f90

来自「用于进行gcc测试」· F90 代码 · 共 8 行

! { dg-do run }
! PR 23661
! PRINT with a character format was broken
character(5) :: f = "(a)"
! { dg-output "check" }
print f, "check"
end