3 ! SELECT TYPE with associate-name
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
9 class(t1), pointer :: c
12 type, extends(t1) :: t2
22 select type (aa => b%c)
30 if (b%i /= -1) call abort()
31 if (b%j /= 2) call abort()
33 select type (aa => b%c)
41 if (b%i /= 6) call abort()
42 if (b%j /= 2) call abort()
45 if (aa/=5) call abort()