2 ! { dg-options "-std=f2003" }
6 ! Procedure Pointers inside COMMON blocks.
7 ! (Allowed in F03, but forbidden in F08.)
9 ! Contributed by Janus Weil <janus@gcc.gnu.org>.
13 procedure(real), pointer :: p1
,p2
15 common /com
/ p1
,p2
,a
,b
16 if (a
/=5 .or
. b
/=-9 .or
. p1(0.0)/=1.0 .or
. p2(0.0)/=0.0) STOP 1
23 procedure(real), pointer :: func1
24 real, external :: func2
26 common /com
/ func1
,func2
,x
,y