Subversion Repositories openrisc_2011-10-31

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