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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR42257: [OOP] Compiler segmentation fault due missing public statement`	`! PR42257: [OOP] Compiler segmentation fault due missing public statement`
`!`	`!`
`! Contributed by Oystein Olsen`	`! Contributed by Oystein Olsen`

`MODULE run_example_fortran03`	`MODULE run_example_fortran03`
`IMPLICIT NONE`	`IMPLICIT NONE`
`PRIVATE`	`PRIVATE`
`PUBLIC :: epoch`	`PUBLIC :: epoch`

`INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9)`	`INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9)`
`INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307)`	`INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307)`

`TYPE epoch`	`TYPE epoch`
`INTEGER(I4B) :: i = 2451545`	`INTEGER(I4B) :: i = 2451545`
`REAL(DP) :: f = 0.5_DP`	`REAL(DP) :: f = 0.5_DP`
`END TYPE`	`END TYPE`

`TYPE, EXTENDS(epoch) :: time`	`TYPE, EXTENDS(epoch) :: time`
`REAL(DP) :: t = 0.0_DP`	`REAL(DP) :: t = 0.0_DP`
`END TYPE`	`END TYPE`
`END MODULE`	`END MODULE`


`USE run_example_fortran03`	`USE run_example_fortran03`
`IMPLICIT NONE`	`IMPLICIT NONE`

`CLASS(epoch), ALLOCATABLE :: e4`	`CLASS(epoch), ALLOCATABLE :: e4`

`ALLOCATE(epoch::e4)`	`ALLOCATE(epoch::e4)`
`WRITE(,) e4%i, e4%f`	`WRITE(,) e4%i, e4%f`

`END`	`END`

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