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