(j3.2006) procedure declaration and elementals

[Bill Long]

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