37 lines
904 B
Fortran
37 lines
904 B
Fortran
! { dg-do compile }
|
|
|
|
! PR fortran/29835
|
|
! Check for improved format error messages with correct locus and more detailed
|
|
! "unexpected element" messages.
|
|
|
|
SUBROUTINE format_labels
|
|
IMPLICIT NONE
|
|
|
|
1 FORMAT (A, &
|
|
A, &
|
|
Q, & ! { dg-error "Unexpected element 'Q'" }
|
|
A)
|
|
|
|
2 FORMAT (A, &
|
|
I, & ! { dg-error "Nonnegative width" }
|
|
A)
|
|
|
|
END SUBROUTINE format_labels
|
|
|
|
SUBROUTINE format_strings
|
|
IMPLICIT NONE
|
|
CHARACTER(len=32), PARAMETER :: str = "hello"
|
|
INTEGER :: x
|
|
|
|
PRINT '(A, Q, A)', & ! { dg-error "Unexpected element 'Q'" }
|
|
str, str, str ! { dg-bogus "Unexpected element" }
|
|
|
|
PRINT '(A, ' // & ! { dg-error "Nonnegative width" }
|
|
' I, ' // &
|
|
' A)', str, str, str ! { dg-bogus "Nonnegative width" }
|
|
|
|
READ '(Q)', & ! { dg-error "Unexpected element 'Q'" }
|
|
x ! { dg-bogus "Unexpected element" }
|
|
|
|
END SUBROUTINE format_strings
|