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()
22end
23