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