URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
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" } }
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.