[Bug fortran/52469] Defining function pointer interface

[palott at gmail dot com]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52469

--- Comment #1 from palott at gmail dot com 2012-03-03 16:35:14 UTC ---
Created attachment 26817
  --> http://gcc.gnu.org/bugzilla/attachment.cgi?id=26817
simple example defining a function pointer interface and calling function

Defining func interface and type in the module leads to gfortran error in
latest release. This example compiles fine in earlier releases. Inserting these
definitions within the program test_proc_ptr, works okay in both releases.

  pointer :: func
  interface
     function func (z)
        real :: func
        real, intent (in) :: z
     end function func
  end interface

  type Contains_f_ptr
     procedure (func), pointer, nopass :: my_f_ptr
  end type Contains_f_ptr