diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 index e53112ce46..65724fe4b7 100644 --- a/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 +++ b/gcc/testsuite/gfortran.dg/alloc_comp_basics_1.f90 @@ -33,8 +33,10 @@ program alloc integer, allocatable :: a2(:) end type alloc2 - type(alloc2) :: b integer :: i + + BLOCK ! To ensure that the allocatables are freed at the end of the scope + type(alloc2) :: b type(alloc2), allocatable :: c(:) if (allocated(b%a2) .OR. allocated(b%a1)) then @@ -64,7 +66,7 @@ program alloc deallocate(c) ! 7 calls to _gfortran_deallocate (b (3) and c(4) goes aout of scope) - + END BLOCK contains subroutine allocate_alloc2(b) @@ -141,4 +143,3 @@ contains end program alloc ! { dg-final { scan-tree-dump-times "builtin_free" 18 "original" } } ! { dg-final { cleanup-tree-dump "original" } } -! { dg-final { cleanup-modules "alloc_m" } } |