1! { dg-do compile } 2! 3! PR42257: [OOP] Compiler segmentation fault due missing public statement 4! 5! Contributed by Oystein Olsen <oystein.olsen@astro.uio.no> 6 7MODULE run_example_fortran03 8 IMPLICIT NONE 9 PRIVATE 10 PUBLIC :: epoch 11 12 INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9) 13 INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307) 14 15 TYPE epoch 16 INTEGER(I4B) :: i = 2451545 17 REAL(DP) :: f = 0.5_DP 18 END TYPE 19 20 TYPE, EXTENDS(epoch) :: time 21 REAL(DP) :: t = 0.0_DP 22 END TYPE 23END MODULE 24 25 26 USE run_example_fortran03 27 IMPLICIT NONE 28 29 CLASS(epoch), ALLOCATABLE :: e4 30 31 ALLOCATE(epoch::e4) 32 WRITE(*,*) e4%i, e4%f 33 34END 35 36