Pure procedure and intent(out) polymorphic pointer argument

With that in mind everything changes. Thank you!