1! { dg-do run } 2! 3! PR 46581: [4.6 Regression] [OOP] segfault in SELECT TYPE with associate-name 4! 5! Contributed by Salvatore Filippone <sfilippone@uniroma2.it> 6 7 8 implicit none 9 10 type :: t1 11 integer, allocatable :: ja(:) 12 end type 13 14 class(t1), allocatable :: a 15 16 allocate(a) 17 18 select type (aa=>a) 19 type is (t1) 20 if (allocated(aa%ja)) STOP 1 21 end select 22 23end 24