(j3.2006) procedure declaration and elementals
Bill Long
longb
Fri Mar 13 14:44:16 EDT 2009
I got this test case:
program f2003_procptr_1
implicit none
real :: pi = 3.14159265
intrinsic :: sin, cos
procedure(sin), pointer :: p => NULL ()
p => sin
print *, "sin(0), sin(pi/2) =", p(0.0), p(pi/2)
p => cos
print *, "cos(0), cos(pi) =", p(0.0), p(pi)
end program f2003_procptr_1
The procedure declaration statement appears to violate C1219
(09-007:[291:26-27]). What is the rationale for this constraint? Is
the code nonconforming?
Cheers,
Bill
--
Bill Long longb at cray.com
Fortran Technical Support & voice: 651-605-9024
Bioinformatics Software Development fax: 651-605-9142
Cray Inc., 1340 Mendota Heights Rd., Mendota Heights, MN, 55120
More information about the J3
mailing list