<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<style type="text/css" style="display:none;"> P {margin-top:0;margin-bottom:0;} </style>
</head>
<body 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="LPNoLPOWALinkPreview">https://github.com/llvm/llvm-project/blob/36b8a4f9f39c9d1b9cd6cae9aebc82cbdb37815b/flang/lib/Semantics/resolve-directives.cpp#L1478</a><br>
<div class="_Entity _EType_OWALinkPreview _EId_OWALinkPreview _EReadonly_1"></div>
<br>
Please file a bug in either of the following places.<br>
<a href="https://github.com/llvm/llvm-project/issues" id="LPNoLPOWALinkPreview_1">https://github.com/llvm/llvm-project/issues</a><br>
<div class="_Entity _EType_OWALinkPreview _EId_OWALinkPreview_1 _EReadonly_1"></div>
<a href="https://github.com/flang-compiler/f18-llvm-project/issues" id="LPNoLPOWALinkPreview_2">https://github.com/flang-compiler/f18-llvm-project/issues</a><br>
<div class="_Entity _EType_OWALinkPreview _EId_OWALinkPreview_2 _EReadonly_1"></div>
<br>
Regards,<br>
Kiran</div>
<div id="appendonsend"></div>
<hr style="display:inline-block;width:98%" tabindex="-1">
<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>From:</b> flang-dev <flang-dev-bounces@lists.llvm.org> on behalf of Jeff Hammond via flang-dev <flang-dev@lists.llvm.org><br>
<b>Sent:</b> 10 December 2021 19:25<br>
<b>To:</b> flang-dev@lists.llvm.org <flang-dev@lists.llvm.org><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 class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-Apple-converted-space">
</span>-DRADIUS=2 -DSTAR -fopenmp -L/usr/local/lib transpose-openmp.F90 -o transpose-openmp</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>^^^^^^</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>^^^^^^</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>^^^^^^</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" 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 class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space">
</span>* real(iterations+1,REAL64)</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"><span class="x_gmail-Apple-converted-space" style="">
</span>^^^^^^</font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000" style=""><br>
</font></span></p>
<p class="x_gmail-p1" style="margin:0px; font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="x_gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">$
gfortran -g -O3<span class="x_gmail-Apple-converted-space"> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p class="x_gmail-p1" style="margin:0px; font:14px Monaco"><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p>
<p class="x_gmail-p1" style="margin:0px; font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="x_gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">$
ifort -g -O3<span class="x_gmail-Apple-converted-space"> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p class="x_gmail-p1" style="margin:0px; font:14px Monaco"><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p>
<p class="x_gmail-p1" style="margin:0px; font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="x_gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures">$
nvfortran -g -O3<span class="x_gmail-Apple-converted-space"> </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p>
<p class="x_gmail-p1" 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 class="x_gmail-s1" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000"></font></span></p>
<p class="x_gmail-p1" 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 class="x_gmail-s2" style="font-variant-ligatures:no-common-ligatures; background-color:rgb(255,255,255)"><font color="#000000" style="">OK</font></span></p>
</div>
</div>
</div>
</div>
</body>
</html>