3 ! SELECT TYPE with temporaries
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
11 type, extends(t1) :: t2
15 class(t1), pointer :: cp
28 if (b%i /= -1) call abort()
29 if (b%j /= 2) call abort()
39 if (b%i /= 6) call abort()
40 if (b%j /= 2) call abort()