gcc/testsuite/gfortran.dg/fmt_error_5.f90

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