[Bug fortran/39876] module procedure name that collides with the GNU intrinsic

[kargl at gcc dot gnu dot org]

------- Comment #1 from kargl at gcc dot gnu dot org  2009-04-23 21:19 -------
Upgrade to 4.4.0.  The collision problem is fixed when you use -std=f95.

There is however another problem.

REMOVE:kargl[159] gfc4x -c -std=f95 j.f90
f951: internal compiler error: in build_function_decl, at
fortran/trans-decl.c:1396
Please submit a full bug report,
with preprocessed source if appropriate.
See <http://gcc.gnu.org/bugs.html> for instructions.

module p                           
  implicit none                                                                 

  contains

    subroutine test()
      implicit none
      print *, avg(erfc)
    end subroutine test

    function avg(f)
      implicit none
      double precision :: avg
      interface
        double precision function f(x)
          implicit none
          double precision, intent(in) :: x
        end function f
      end interface
      avg = ( f(1.0D0) + f(2.0D0) ) / 2
    end function avg

    function erfc(x)
      implicit none
      double precision, intent(in) :: x
      double precision             :: erfc
      erfc = x
    end function erfc

end module p


-- 


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