| ! { 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 |