| ! { dg-do run } |
| |
| ! PR fortran/45384 |
| ! Double free happened, check that it works now. |
| |
| ! Contributed by Salvatore Filippone <salvatore.filippone@uniroma2.it> |
| |
| program bug20 |
| |
| type :: d_base_sparse_mat |
| integer :: v(10) = 0. |
| end type d_base_sparse_mat |
| |
| class(d_base_sparse_mat),allocatable :: a |
| |
| allocate (d_base_sparse_mat :: a) |
| |
| select type(aa => a) |
| type is (d_base_sparse_mat) |
| write(0,*) 'NV = ',size(aa%v) |
| if (size(aa%v) /= 10) call abort () |
| class default |
| write(0,*) 'Not implemented yet ' |
| end select |
| |
| end program bug20 |