23 lines
529 B
Fortran
23 lines
529 B
Fortran
! { dg-do run }
|
|
! { dg-shouldfail "runtime error" }
|
|
|
|
! PR fortran/29835
|
|
! Check for improved format error messages with correct locus and more detailed
|
|
! "unexpected element" messages.
|
|
|
|
! Now with runtime supplied format strings
|
|
SUBROUTINE format_runtime (fmtstr)
|
|
IMPLICIT NONE
|
|
CHARACTER(len=*) :: fmtstr
|
|
INTEGER :: x
|
|
|
|
PRINT fmtstr, x
|
|
END SUBROUTINE format_runtime
|
|
|
|
PROGRAM main
|
|
IMPLICIT NONE
|
|
CALL format_runtime ('(Q)')
|
|
END PROGRAM main
|
|
|
|
! { dg-output "Unexpected element 'Q'.*(\n|\r\n|\r)\\(Q\\)(\n|\r\n|\r) \\^" }
|