gcc/testsuite/gfortran.dg/proc_decl_19.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 36426
   4 !
   5 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
   6
   7 abstract interface
   8   function foo(x)
   9     character(len=*) :: x
  10     character(len=len(x)) :: foo
  11   end function foo
  12 end interface
  13 procedure(foo) :: bar
  14
  15 abstract interface
  16   character function abs_fun()
  17   end function
  18 end interface
  19 procedure(abs_fun):: x
  20
  21 character(len=20) :: str
  22 str = bar("Hello")
  23 end