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/] [der_charlen_1.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! PR 18990`	`! PR 18990`
`! we used to ICE on these examples`	`! we used to ICE on these examples`
`module core`	`module core`
`type, public :: T`	`type, public :: T`
`character(len=I) :: str ! { dg-error "needs to be a constant specification expression" }`	`character(len=I) :: str ! { dg-error "needs to be a constant specification expression" }`
`end type T`	`end type T`
`private`	`private`
`CONTAINS`	`CONTAINS`
`subroutine FOO(X)`	`subroutine FOO(X)`
`type(T), intent(in) :: X`	`type(T), intent(in) :: X`
`end subroutine`	`end subroutine`
`end module core`	`end module core`

`module another_core`	`module another_core`
`type :: T`	`type :: T`
`character(len=*) :: s ! { dg-error "needs to be a constant specification expr" }`	`character(len=*) :: s ! { dg-error "needs to be a constant specification expr" }`
`end type T`	`end type T`
`private`	`private`
`CONTAINS`	`CONTAINS`
`subroutine FOO(X)`	`subroutine FOO(X)`
`type(T), intent(in) :: X`	`type(T), intent(in) :: X`
`end subroutine`	`end subroutine`
`end module another_core`	`end module another_core`

`! { dg-final { cleanup-modules "core another_core" } }`	`! { dg-final { cleanup-modules "core another_core" } }`