------- Comment #1 from burnus at gcc dot gnu dot org 2007-09-05 14:14 -------
Besides the argument kind checking of specific intrinsic procedures and
besides using specific intrinsic as name in the PROCEDURE statement, the
following fails as well. The error message is:
Error: Type/rank mismatch in argument 'a' at (1)
This program works with NAG f95, g95, ifort, openf95 ...
module m
implicit none
contains
subroutine sub(a)
interface
function a(x)
real :: a, x
intent(in) :: x
end function a
end interface
optional :: a
if(present(a)) print *, a(4.0)
end subroutine sub
end module m
use m
implicit none
intrinsic cos
call sub()
call sub(cos)
end
--
burnus at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
OtherBugsDependingO| |30871
nThis| |
Keywords| |rejects-valid
Summary|Type checking absent for |INTRINSIC functions as
|specific names of INTRINSIC |ACTUAL argument
|functions |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33162
