Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/move_alloc_2.f90 @ 127:4c56639505ff
fix function.c and add CbC-example Makefile
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 18:46:58 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! ! PR 45004: [OOP] Segfault with allocatable scalars and move_alloc ! ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> program bug18 type foo integer :: i end type foo type bar class(foo), allocatable :: bf end type bar class(foo), allocatable :: afab type(bar) :: bb allocate(foo :: afab) afab%i = 8 call move_alloc(afab, bb%bf) if (.not. allocated(bb%bf)) call abort() if (allocated(afab)) call abort() if (bb%bf%i/=8) call abort() end program bug18