[Bug fortran/60507] New: Passing real expression into procedure argument not caught

[vladimir.fuka at gmail dot com]

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

            Bug ID: 60507
           Summary: Passing real expression into procedure argument not
                    caught
           Product: gcc
           Version: 4.9.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: vladimir.fuka at gmail dot com

This compiles fine with the trunk and crashes at runtime:

 print *, f(g(x))

contains

  real function f(fun) 
    procedure(g) :: fun
    f = fun(1.)
  end

  real function g(x)
    real, intent(in) :: x
  end

end


Similar to http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25147