+
−! { dg-do run }
+
−! PR fortran/33945
+
−!
+
−! PROCEDURE in the interface was wrongly rejected
+
−module modproc
+
−  implicit none
+
−  interface bar
+
−    procedure x
+
−  end interface bar
+
−  procedure(sub) :: x
+
−  interface
+
−    integer function sub()
+
−    end function sub
+
−  end interface
+
−end module modproc
+
−
+
−integer function x()
+
−  implicit none
+
−  x = -5
+
−end function x
+
−
+
−program test
+
−  use modproc
+
−  implicit none
+
−  if(x() /= -5) STOP 1
+
−end program test