(j3.2006) 17-152 and CO_REDUCE
Thu May 18 11:30:30 EDT 2017
This is another example of gratuitous generality that serves no purpose. We have made that mistake enough times in the past that we should know better than to fall for it again.
In this particular case, there is a very good reason why these changes cannot work. The OPERATION function is called from within the CO_REDUCE library code. Which is almost certainly going to be written in C or C++. Independent of the library implementation language, there is no chance that an interface for the function would be visible at the call site. Thus, the interface has to be fixed in the standard. So, optional arguments are unacceptable. A library routine would have no concept of how to call the function with a Fortran polymorphic argument, so that is also out.
> On May 17, 2017, at 9:06 PM, Van Snyder <Van.Snyder at jpl.nasa.gov> wrote:
> Imposing "exactly two arguments" on the OPERATION argument to CO_REDUCE
> requires one to write a wrapper to use a function that has more than two
> arguments, with those after the first two being optional.
> I would prefer "OPERATION shall be a pure function with at least two
> arguments; the result and each of the first two arguments shall be
> scalar, nonallocatable, nonpointer, nonpolymorphic data objects with the
> same type and type parameters as A. The first two arguments shall not
> be optional and any additional arguments shall be optional."
> I also don't understand why the first two arguments can't be optional.
> Are polymorphic dummy arguments really a problem? If not, remove the
> prohibition against polymorphic, and replace "type" with "declared
> If the processor is expected to enforce the requirements on OPERATION,
> it should be required to have explicit interface.
> J3 mailing list
> J3 at mailman.j3-fortran.org
Bill Long 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
More information about the J3