<div dir="ltr">This works with other compilers as well...<br><div><br></div><div>


















<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier"><br></p><p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">$ for fc in ifort
gfortran-8 pgfortran ; do ${fc} -c f08-intent-async.f90 && echo SUCCESS
with $fc || echo FAILURE with $fc ; done<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">SUCCESS with ifort<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">SUCCESS with gfortran-8<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">SUCCESS with pgfortran<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier"><br></p><p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">$ cat
f08-intent-async.f90<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">        Subroutine csub (x)<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">           
real,intent(inout),asynchronous :: x<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier">        end Subroutine csub<span></span></p>

<p class="gmail-MsoPlainText" style="margin:0in 0in 0.0001pt;font-size:14pt;font-family:Courier"><span> </span></p>





<br></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Jun 6, 2018 at 8:29 AM, Bill Long <span dir="ltr"><<a href="mailto:longb@cray.com" target="_blank">longb@cray.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><span class=""><br>
> On Jun 6, 2018, at 10:08 AM, Jeff Squyres (jsquyres) <<a href="mailto:jsquyres@cisco.com">jsquyres@cisco.com</a>> wrote:<br>
> <br>
> Fortran gurus --<br>
> <br>
> We just got a problem report in Open MPI (<a href="https://www.mail-archive.com/users@lists.open-mpi.org/msg32381.html" rel="noreferrer" target="_blank">https://www.mail-archive.com/<wbr>users@lists.open-mpi.org/<wbr>msg32381.html</a>) for a Fortran compile failure:<br>
> <br>
> -----<br>
>  OMPI_FORTRAN_IGNORE_TKR_TYPE, INTENT(IN), ASYNCHRONOUS :: origin_addr<br>
>                                            ^<br>
> "../../../../../openmpi-<wbr>master-201806060243-64a5baa/<wbr>ompi/mpi/fortran/use-mpi-f08/<wbr>accumulate_f08.F90", Line = 16, Column = 46: ERROR: Attributes ASYNCHRONOUS and INTENT must not appear in the same attribute list.<br>
> -----<br>
> <br>
> Is that Fortran compiler correct?  I.e., does Fortran forbid the use of INTENT and ASYNCHRONOUS in the same attribute list?<br>
<br>
</span>I don’t see a restriction like that, at least in F2018.  I tried this:<br>
<br>
   Subroutine csub (x) <br>
     real,intent(inout),<wbr>asynchronous :: x<br>
   end Subroutine csub<br>
<br>
with maximum diagnostics and got no messages with the Cray compiler which is quite good at testing conformance. <br>
<span class=""><br>
<br>
> Or is this a compiler bug?<br>
> <br>
<br>
</span>It would appear to be the case.  It might be the case that the usage in the routine is incompatible with INTENT(IN), but that message should be differently worded.   Of course, OMPI_FORTRAN_IGNORE_TKR_TYPE is certainly not a valid type declaration.  I assume they intend TYPE(*). <br>
<br>
Cheers,<br>
Bill<br>
<span class=""><br>
<br>
<br>
<br>
> -- <br>
> Jeff Squyres<br>
> <a href="mailto:jsquyres@cisco.com">jsquyres@cisco.com</a><br>
> <br>
> ______________________________<wbr>_________________<br>
> mpiwg-fortran mailing list<br>
> <a href="mailto:mpiwg-fortran@lists.mpi-forum.org">mpiwg-fortran@lists.mpi-forum.<wbr>org</a><br>
> <a href="https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran" rel="noreferrer" target="_blank">https://lists.mpi-forum.org/<wbr>mailman/listinfo/mpiwg-fortran</a><br>
<br>
</span>Bill Long                                                                       <a href="mailto:longb@cray.com">longb@cray.com</a><br>
Principal Engineer, Fortran Technical Support &   voice:  651-605-9024<br>
Bioinformatics Software Development                      fax:  651-605-9143<br>
Cray Inc./ 2131 Lindau Lane/  Suite 1000/  Bloomington, MN  55425<br>
<div class="HOEnZb"><div class="h5"><br>
<br>
______________________________<wbr>_________________<br>
mpiwg-fortran mailing list<br>
<a href="mailto:mpiwg-fortran@lists.mpi-forum.org">mpiwg-fortran@lists.mpi-forum.<wbr>org</a><br>
<a href="https://lists.mpi-forum.org/mailman/listinfo/mpiwg-fortran" rel="noreferrer" target="_blank">https://lists.mpi-forum.org/<wbr>mailman/listinfo/mpiwg-fortran</a><br>
</div></div></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature">Jeff Hammond<br><a href="mailto:jeff.science@gmail.com" target="_blank">jeff.science@gmail.com</a><br><a href="http://jeffhammond.github.io/" target="_blank">http://jeffhammond.github.io/</a></div>
</div>