[flang-dev] error: The DEFAULT(NONE) clause requires that 'real64' must be listed in a data-sharing attribute clause

[Jeff Hammond via flang-dev]

I built F18 from source a few hours ago.

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.

Do people agree this is a bug?  If so, I'll file it.

/usr/local/bin/flang -g -O3 -ffast-math -Wall  -DRADIUS=2 -DSTAR -fopenmp
-L/usr/local/lib transpose-openmp.F90 -o transpose-openmp

error: Semantic errors in transpose-openmp.F90

./transpose-openmp.F90:244:27: error: The DEFAULT(NONE) clause requires
that 'real64' must be listed in a data-sharing attribute clause

        temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &

                            ^^^^^^

./transpose-openmp.F90:244:44: error: The DEFAULT(NONE) clause requires
that 'real64' must be listed in a data-sharing attribute clause

        temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &

                                             ^^^^^^

./transpose-openmp.F90:244:62: error: The DEFAULT(NONE) clause requires
that 'real64' must be listed in a data-sharing attribute clause

        temp = ((real(order,REAL64)*real(i-1,REAL64))+real(j-1,REAL64)) &

                                                               ^^^^^^

./transpose-openmp.F90:245:32: error: The DEFAULT(NONE) clause requires
that 'real64' must be listed in a data-sharing attribute clause

             * real(iterations+1,REAL64)

                                 ^^^^^^


jhammond at nuclear:~/PRK/FORTRAN$ gfortran -g -O3  -fopenmp
transpose-openmp.F90 -o transpose-openmp && echo OK

OK

jhammond at nuclear:~/PRK/FORTRAN$ ifort -g -O3  -fopenmp transpose-openmp.F90
-o transpose-openmp && echo OK

OK

jhammond at nuclear:~/PRK/FORTRAN$ nvfortran -g -O3  -fopenmp
transpose-openmp.F90 -o transpose-openmp && echo OK

OK
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.llvm.org/pipermail/flang-dev/attachments/20211210/cd133dcc/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: transpose-openmp.F90
Type: application/octet-stream
Size: 9161 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/flang-dev/attachments/20211210/cd133dcc/attachment-0001.obj>