Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/extends_9.f03 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +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