! { dg-do run } | |
! | |
! PR 46581: [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name | |
! | |
! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> | |
implicit none | |
type :: t1 | |
integer, allocatable :: ja(:) | |
end type | |
class(t1), allocatable :: a | |
allocate(a) | |
select type (aa=>a) | |
type is (t1) | |
if (allocated(aa%ja)) STOP 1 | |
end select | |
end |