------- Comment #3 from jvdelisle at gcc dot gnu dot org 2007-10-21 03:34 ------- Tobias, is this what you meant in your original comment that should work?
module m implicit none interface double precision function my1(x) double precision, intent(in) :: x end function my1 end interface interface real(kind=4) function my2(x) real, intent(in) :: x end function my2 end interface end module use m procedure(dcos):: my1 procedure(cos) :: my2 print *, my2(1.0) print *, my1(1d0) end Now this gives: test.f90:16.14: procedure(dcos) :: my1 1 Error: Fortran 2003: Support for intrinsic procedure 'dcos' in PROCEDURE statement at (1) not yet implemented in gfortran test.f90:17.13: procedure(cos) :: my2 1 Error: Fortran 2003: Support for intrinsic procedure 'cos' in PROCEDURE statement at (1) not yet implemented in gfortran -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33162