[J3] Polymorphic C_LOC actual argument pointer-associated with an interoperable type: conforming?

Malcolm Cohen malcolm at nag-j.co.jp
Thu May 24 00:56:39 EDT 2018

Hi Bill,


I think that C_LOC appears to be defective, as in, whoever tried to permit assumed-type arguments here earlier forgot to modify C_LOC to make it acceptable.  That is, C_LOC needs explicit permission for assumed-type.


This should probably be raised at the upcoming meeting (though it’s too late for country comments).  We will probably be in a position to handle additional uncontroversial bug fixes.  (If we don’t have time before final standardisation we should probably raise an interp.)




..............Malcolm Cohen, NAG Oxford/Tokyo.


From: J3 <j3-bounces at mailman.j3-fortran.org> On Behalf Of Bill Long via J3
Sent: Thursday, May 24, 2018 3:23 AM
To: General J3 interest list <j3 at mailman.j3-fortran.org>
Cc: Bill Long <longb at cray.com>
Subject: Re: [J3] Polymorphic C_LOC actual argument pointer-associated with an interoperable type: conforming?


> On May 22, 2018, at 9:02 PM, Malcolm Cohen via J3 <j3 at mailman.j3-fortran.org <mailto:j3 at mailman.j3-fortran.org> > wrote:
> (both C_F_POINTER and C_LOC effectively prohibit polymorphic arguments)

C710 seems to allow assumed-type arguments to C_LOC() [a special case that was intentionally allowed], and an assumed-type entity is an unlimited polymorphic entity. Whereas the specification for C_LOC() in clause 18 seems to disallow polymorphic arguments. Would Damian’s program be conforming if the CLASS(*) declarations are changed to TYPE(*)?


Bill Long longb at cray.com <mailto:longb at cray.com> 
Principal Engineer, Fortran Technical Support & voice: 651-605-9024
Bioinformatics Software Development fax: 651-605-9143
Cray Inc./ 2131 Lindau Lane/ Suite 1000/ Bloomington, MN 55425


The Numerical Algorithms Group Ltd is a company registered in England and Wales with company number 1249803. The registered office is: Wilkinson House, Jordan Hill Road, Oxford OX2 8DR, United Kingdom. Please see our Privacy Notice <https://www.nag.co.uk/content/privacy-notice>  for information on how we process personal data and for details of how to stop or limit communications from us.

This e-mail has been scanned for all viruses and malware, and may have been automatically archived by Mimecast Ltd, an innovator in Software as a Service (SaaS) for business.

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.j3-fortran.org/pipermail/j3/attachments/20180524/760eb9a3/attachment.html>

More information about the J3 mailing list