Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/allocate_derived_5.f90 @ 120:f93fa5091070
fix conv1.c
author | mir3636 |
---|---|
date | Thu, 08 Mar 2018 14:53:42 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR 45828: [4.6 Regression] No default initialization of derived type members? ! ! Contributed by Juha <jpr@csc.fi> program fail1 type a integer :: i end type a type b type(a) :: acomp = a(5) end type b type(b), allocatable :: c(:) allocate(c(1)) if (c(1) % acomp % i /= 5) call abort() end program fail1