gcc/testsuite/gfortran.dg/proc_decl_16.f90

   1 ! { dg-do compile }
   2 ! PR fortran/36459
   3 !
   4 abstract interface
   5   function dim()
   6     integer :: dim
   7   end function dim
   8 end interface
   9 procedure(dim) :: f
  10
  11 interface
  12   integer function tan()
  13   end function
  14 end interface
  15 procedure(tan) :: g
  16
  17 print *, f()
  18
  19 print *, tan()
  20
  21 end