[Bug fortran/41139] [4.5 Regression] a procedure pointer call as actual argument

[dominiq at lps dot ens dot fr]

------- Comment #14 from dominiq at lps dot ens dot fr  2009-08-22 09:27 -------
> Dominique, can you post your dump for comment #4 (especially the call to o%f)?

Is this what you want?

  o.f = add;
  {
    real(kind=4) D.1533;
    static real(kind=4) C.1532 = 2.0e+0;
    static real(kind=4) C.1531 = 1.0e+0;
    static real(kind=4) C.1530 = 4.0e+0;

    D.1533 = f (&C.1531, &C.1532);
    g = (logical(kind=4)) greater (&C.1530, &&D.1533);
  }


-- 


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