3 ! PROCEDURE POINTERS without the PROCEDURE statement
5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
13 real, intent(inout
) :: a
20 real, external, pointer :: fp
25 real, intent(inout
) :: a
34 real, intent(inout
) :: a
43 if (abs(fp(2.5)-7.5)>0.01) call abort()
49 if (abs(c
-4.6)>0.01) call abort()