URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [array_constructor_26.f03] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=gnu" }`	`! { dg-options "-std=gnu" }`

`! PR fortran/36492`	`! PR fortran/36492`
`! Check for incorrect error message with -std=f2003.`	`! Check for incorrect error message with -std=f2003.`
`! Test from comment #4, PR 36492 causing ICE.`	`! Test from comment #4, PR 36492 causing ICE.`

`MODULE WinData`	`MODULE WinData`
`IMPLICIT NONE`	`IMPLICIT NONE`
`INTEGER (1), PARAMETER :: MAXFLD = 25_1, MAXHED = 5_1, MAXCHR = 80_1`	`INTEGER (1), PARAMETER :: MAXFLD = 25_1, MAXHED = 5_1, MAXCHR = 80_1`
`integer :: i`	`integer :: i`
`TYPE TWindowData`	`TYPE TWindowData`
`CHARACTER (MAX_FLD_HED, 1) :: DWFdHd(MAXFLD) = [(" ", i = 1, MAXFLD)]`	`CHARACTER (MAX_FLD_HED, 1) :: DWFdHd(MAXFLD) = [(" ", i = 1, MAXFLD)]`
`! { dg-error "no IMPLICIT type" "" { target --* } 13 }`	`! { dg-error "no IMPLICIT type" "" { target --* } 13 }`
`! { dg-error "specification expression" "" { target --* } 13 }`	`! { dg-error "specification expression" "" { target --* } 13 }`
`END TYPE TWindowData`	`END TYPE TWindowData`
`END MODULE WinData`	`END MODULE WinData`

`! { dg-final { cleanup-modules "WinData" } }`	`! { dg-final { cleanup-modules "WinData" } }`