<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="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="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="gmail-Apple-converted-space">  </span>-DRADIUS=2 -DSTAR -fopenmp -L/usr/local/lib transpose-openmp.F90 -o transpose-openmp</font></span></p>
<p class="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="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="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="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="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">        </span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">                            </span>^^^^^^</font></span></p>
<p class="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="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="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">        </span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">                                             </span>^^^^^^</font></span></p>
<p class="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="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="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">        </span>temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &</font></span></p>
<p class="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">                                                               </span>^^^^^^</font></span></p>
<p class="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="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="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space">             </span>* real(iterations+1,REAL64)</font></span></p>
<p class="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000"><span class="gmail-Apple-converted-space" style="">                                 </span>^^^^^^</font></span></p><p class="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="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="gmail-p1" style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">$ gfortran -g -O3<span class="gmail-Apple-converted-space">  </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p><p class="gmail-p1" style="margin:0px;font:14px Monaco"><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p><p class="gmail-p1" style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">$ ifort -g -O3<span class="gmail-Apple-converted-space">  </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p><p class="gmail-p1" style="margin:0px;font:14px Monaco"><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">OK</font></span></p><p class="gmail-p1" style="margin:0px;font:14px Monaco"><font color="#000000" style="background-color:rgb(255,255,255)"><span class="gmail-s1" style="font-variant-ligatures:no-common-ligatures">jhammond@nuclear</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">:</span><span class="gmail-s3" style="font-variant-ligatures:no-common-ligatures">~/PRK/FORTRAN</span><span class="gmail-s2" style="font-variant-ligatures:no-common-ligatures">$ nvfortran -g -O3<span class="gmail-Apple-converted-space">  </span>-fopenmp transpose-openmp.F90 -o transpose-openmp && echo OK</span></font></p><p class="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="gmail-s1" style="font-variant-ligatures:no-common-ligatures;background-color:rgb(255,255,255)"><font color="#000000">










</font></span></p><p class="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="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>