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