3 ! PR 45521: [F08] GENERIC resolution with ALLOCATABLE/POINTER and PROCEDURE
5 ! Contributed by <wangmianzhi1@linuxmail.org>
12 integer, allocatable :: a1
13 integer, pointer :: a2
15 if (.not.test(a1)) call abort()
16 if (test(a2)) call abort()
20 logical function testAlloc(obj)
21 integer, allocatable :: obj
25 logical function testPtr(obj)
26 integer, pointer :: obj