Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/extends_9.f03 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! ! PR42257: [OOP] Compiler segmentation fault due missing public statement ! ! Contributed by Oystein Olsen <oystein.olsen@astro.uio.no> MODULE run_example_fortran03 IMPLICIT NONE PRIVATE PUBLIC :: epoch INTEGER, PARAMETER :: I4B = SELECTED_INT_KIND(9) INTEGER, PARAMETER :: DP = SELECTED_REAL_KIND(15,307) TYPE epoch INTEGER(I4B) :: i = 2451545 REAL(DP) :: f = 0.5_DP END TYPE TYPE, EXTENDS(epoch) :: time REAL(DP) :: t = 0.0_DP END TYPE END MODULE USE run_example_fortran03 IMPLICIT NONE CLASS(epoch), ALLOCATABLE :: e4 ALLOCATE(epoch::e4) WRITE(*,*) e4%i, e4%f END