gcc/testsuite/gfortran.dg/proc_decl_25.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 47352: [F03] ICE with proc-pointers in generic procedures
   4 !
   5 ! Contributed by James van Buskirk
   6 ! cf. http://groups.google.com/group/comp.lang.fortran/browse_thread/thread/bbaf59ffd7c372e9
   7
   8    implicit none
   9
  10    abstract interface
  11       real function f()
  12       end function f
  13    end interface
  14
  15    procedure(f) :: f1
  16
  17    interface gen
  18       procedure f1
  19    end interface gen
  20
  21    write(*,*) gen()
  22 end