1! { dg-do run } 2! { dg-shouldfail "runtime error" } 3 4! PR fortran/29835 5! Check for improved format error messages with correct locus and more detailed 6! "unexpected element" messages. 7 8! Now with runtime supplied format strings 9SUBROUTINE format_runtime (fmtstr) 10 IMPLICIT NONE 11 CHARACTER(len=*) :: fmtstr 12 INTEGER :: x 13 14 PRINT fmtstr, x 15END SUBROUTINE format_runtime 16 17PROGRAM main 18 IMPLICIT NONE 19 CALL format_runtime ('(Q)') 20END PROGRAM main 21 22! { dg-output "Unexpected element 'Q'.*(\n|\r\n|\r)\\(Q\\)(\n|\r\n|\r) \\^" } 23