3 ! executing SELECT TYPE statements with CLASS IS blocks
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
13 type, extends(t1) :: t2
17 type, extends(t2) :: t3
21 class(t1), pointer :: cp
40 if (i /= 3) call abort()
52 if (i /= 1) call abort()
66 if (i /= 4) call abort()
80 if (i /= 4) call abort()
96 if (i /= 3) call abort()