5 ! Contributed by Fran Martinez Fadrique
7 ! Before, a temporary was missing for generic procedured (cf. test())
8 ! as the allocatable attribute was ignored for the check whether a
9 ! temporary is required
14 procedure, NOPASS :: foo => foo
19 integer, allocatable :: foo(:)
29 integer, pointer :: ptr1, ptr2
30 integer, target :: bar1(2)
31 integer, target, allocatable :: bar2(:)
38 if (ptr1 /= 11) call abort()
40 if (ptr1 /= 12) call abort()
42 if (ptr2 /= 13) call abort()
44 if (ptr2 /= 14) call abort()
46 if (ptr2 /= 15) call abort()
48 if (ptr2 /= 16) call abort()
58 integer, target :: bar(2)
59 integer, pointer :: ptr
62 if (ptr /= 2) call abort()
64 if (ptr /= 77) call abort()
67 integer, allocatable :: foo(:)