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