URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_error_3.f90] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { 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
Go to most recent revision | Compare with Previous | Blame | View Log