Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/class_allocate_17.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 |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-fdump-tree-original" } ! ! PR 60922: [4.9/5 regression] Memory leak with allocatable CLASS components ! ! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> program test_leak implicit none type d_base_vect_type end type type d_vect_type class(d_base_vect_type), allocatable :: v end type call test() contains subroutine test() class(d_vect_type), allocatable :: x allocate(x) allocate(x%v) print *,"allocated!" end subroutine end ! { dg-final { scan-tree-dump-times "fini_coarray" 1 "original" } }