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  CHARACTER(len=32), PARAMETER :: str = "hello"
13
14  PRINT fmtstr, str, str, str
15END SUBROUTINE format_runtime
16
17PROGRAM main
18  IMPLICIT NONE
19  CALL format_runtime ('(A, Q, A)')
20END PROGRAM main
21
22! { dg-output "Unexpected element 'Q'.*(\n|\r\n|\r)\\(A, Q, A\\)(\n|\r\n|\r)    \\^" }
23