[Bug fortran/33162] INTRINSIC functions as ACTUAL argument

["jvdelisle at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

------- 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