Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/finalize_16.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! { dg-options "-fcheck=all" } | |
| 3 ! | |
| 4 ! PR fortran/57542 | |
| 5 ! | |
| 6 ! Contributed by Salvatore Filippone | |
| 7 ! | |
| 8 module type_mod | |
| 9 type inner | |
| 10 end type inner | |
| 11 | |
| 12 type outer | |
| 13 class(inner), allocatable :: item | |
| 14 end type outer | |
| 15 | |
| 16 type container | |
| 17 class(outer), allocatable :: item | |
| 18 end type container | |
| 19 | |
| 20 type maintype | |
| 21 type(container), allocatable :: v(:) | |
| 22 end type maintype | |
| 23 | |
| 24 end module type_mod | |
| 25 | |
| 26 subroutine testfinal(var) | |
| 27 use type_mod | |
| 28 type(maintype), intent(inout) :: var | |
| 29 ! A real code would obviously check | |
| 30 ! this is really allocated | |
| 31 deallocate(var%v(1)%item%item) | |
| 32 end subroutine testfinal |