Print

---

I forgot to add that NAG has no issues with this (cos is the intrinsic
elemental):

type :: foo
  procedure(cos), nopass, pointer :: f
end type

This further confused me.