<div dir="ltr">Cool. <a href="https://github.com/flang-compiler/f18-llvm-project/issues/1346">https://github.com/flang-compiler/f18-llvm-project/issues/1346</a> is filed.<div><br></div><div>Jeff</div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sat, Dec 11, 2021 at 9:50 PM Kiran Chandramohan <<a href="mailto:Kiran.Chandramohan@arm.com">Kiran.Chandramohan@arm.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div dir="ltr">
<div style="font-family:Calibri,Arial,Helvetica,sans-serif;font-size:12pt;color:rgb(0,0,0)">
Hello Jeff,<br>
<br>
Thanks for bringing this to our attention. This definitely looks like a bug. On a quick look, I think we are a bit too aggressive and look at all Names and do not restrict to variables.<br>
<a href="https://github.com/llvm/llvm-project/blob/36b8a4f9f39c9d1b9cd6cae9aebc82cbdb37815b/flang/lib/Semantics/resolve-directives.cpp#L1478" id="gmail-m_-2434815472687189632LPNoLPOWALinkPreview" target="_blank">https://github.com/llvm/llvm-project/blob/36b8a4f9f39c9d1b9cd6cae9aebc82cbdb37815b/flang/lib/Semantics/resolve-directives.cpp#L1478</a><br>
<div></div>
<br>
Please file a bug in either of the following places.<br>
<a href="https://github.com/llvm/llvm-project/issues" id="gmail-m_-2434815472687189632LPNoLPOWALinkPreview_1" target="_blank">https://github.com/llvm/llvm-project/issues</a><br>
<div></div>
<a href="https://github.com/flang-compiler/f18-llvm-project/issues" id="gmail-m_-2434815472687189632LPNoLPOWALinkPreview_2" target="_blank">https://github.com/flang-compiler/f18-llvm-project/issues</a><br>
<div></div>
<br>
Regards,<br>
Kiran</div>
<div id="gmail-m_-2434815472687189632appendonsend"></div>
<hr style="display:inline-block;width:98%">
<div id="gmail-m_-2434815472687189632divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> flang-dev <<a href="mailto:flang-dev-bounces@lists.llvm.org" target="_blank">flang-dev-bounces@lists.llvm.org</a>> on behalf of Jeff Hammond via flang-dev <<a href="mailto:flang-dev@lists.llvm.org" target="_blank">flang-dev@lists.llvm.org</a>><br>
<b>Sent:</b> 10 December 2021 19:25<br>
<b>To:</b> <a href="mailto:flang-dev@lists.llvm.org" target="_blank">flang-dev@lists.llvm.org</a> <<a href="mailto:flang-dev@lists.llvm.org" target="_blank">flang-dev@lists.llvm.org</a>><br>
<b>Subject:</b> [flang-dev] error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute clause</font>
<div> </div>
</div>
<div>
<div dir="ltr">
<div><font color="#000000">I built F18 from source a few hours ago.</font></div>
<div><font color="#000000"><br>
</font></div>
<div><font color="#000000">I am surprised that it cannot see that REAL64 is an intrinsic value from the iso_fortran_env module the way gfortran, ifort and nvfortran do.</font></div>
<div><font color="#000000"><br>
</font></div>
<div><font color="#000000">Do people agree this is a bug? If so, I'll file it.</font></div>
<div><font color="#000000"><br>
</font></div>
<div>
<div>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">/usr/local/bin/flang -g -O3 -ffast-math -Wall<span>
</span>-DRADIUS=2 -DSTAR -fopenmp -L/usr/local/lib transpose-openmp.F90 -o transpose-openmp</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">error: Semantic errors in transpose-openmp.F90</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">./transpose-openmp.F90:244:27: error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute
clause</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>^^^^^^</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">./transpose-openmp.F90:244:44: error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute
clause</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>^^^^^^</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">./transpose-openmp.F90:244:62: error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute
clause</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>^^^^^^</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">./transpose-openmp.F90:245:32: error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute
clause</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>* real(iterations+1,REAL64)</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span>
</span>^^^^^^</font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><br>
</font></span></p>
<p style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span style="font-variant-ligatures:no-common-ligatures">:</span><span style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span style="font-variant-ligatures:no-common-ligatures">$
gfortran -g -O3<span> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p style="margin:0px;font:14px Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p>
<p style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span style="font-variant-ligatures:no-common-ligatures">:</span><span style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span style="font-variant-ligatures:no-common-ligatures">$
ifort -g -O3<span> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p style="margin:0px;font:14px Monaco"><span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p>
<p style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span style="font-variant-ligatures:no-common-ligatures">:</span><span style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span style="font-variant-ligatures:no-common-ligatures">$
nvfortran -g -O3<span> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"></font></span></p>
<p style="margin:0px;font-variant-numeric:normal;font-variant-east-asian:normal;font-stretch:normal;font-size:14px;line-height:normal;font-family:Monaco">
<span style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p>
</div>
</div>
</div>
</div>
</div>
</blockquote></div><br clear="all"><div><br></div>-- <br><div dir="ltr" class="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>