+
−! { dg-do run }
+
−! { dg-require-visibility "" }
+
−!
+
−! PROCEDURE POINTERS without the PROCEDURE statement
+
−!
+
−! Contributed by Janus Weil <janus@gcc.gnu.org>
+
−
+
−real function e1(x)
+
−  real :: x
+
−  e1 = x * 3.0
+
−end function
+
−
+
−subroutine e2(a,b)
+
−  real, intent(inout) :: a
+
−  real, intent(in) :: b
+
−  a = a + b
+
−end subroutine
+
−
+
−program proc_ptr_3
+
−
+
−real, external, pointer :: fp
+
−
+
−pointer :: sp
+
−interface
+
−  subroutine sp(a,b)
+
−    real, intent(inout) :: a
+
−    real, intent(in) :: b
+
−  end subroutine sp
+
−end interface
+
−
+
−real, external :: e1
+
−
+
−interface
+
−  subroutine e2(a,b)
+
−    real, intent(inout) :: a
+
−    real, intent(in) :: b
+
−  end subroutine e2
+
−end interface
+
−
+
−real :: c = 1.2
+
−
+
−fp => e1
+
−
+
−if (abs(fp(2.5)-7.5)>0.01) STOP 1
+
−
+
−sp => e2
+
−
+
−call sp(c,3.4)
+
−
+
−if (abs(c-4.6)>0.01) STOP 2
+
−
+
−end