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