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) STOP 1
40 if (ptr1
/= 12) STOP 2
42 if (ptr2
/= 13) STOP 3
44 if (ptr2
/= 14) STOP 4
46 if (ptr2
/= 15) STOP 5
48 if (ptr2
/= 16) STOP 6
58 integer, target
:: bar(2)
59 integer, pointer :: ptr
67 integer, allocatable
:: foo(:)