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