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