Merge pull request #211 from bcornille/amdflang-new

Make DoConcurrentStream.F90 conforming

Author: tomdeakin

src/fortran/DoConcurrentStream.F90

@@ -130,7 +130,7 @@ function dot() result(s)
 #ifdef CRAY_THREAD_DOCONCURRENT
             do i=1,N
 #else
-            do concurrent (i=1:N) !shared(A,B)
+            do concurrent (i=1:N) reduce(+:s) !shared(A,B)
 #endif
                s = s + A(i) * B(i)
             end do

src/fortran/make.inc.flang

@@ -1,9 +1,9 @@
-FC	:= flang-new
+FC	?= flang-new
 FCFLAGS	:= -O3
 
 DOCONCURRENT_FLAG   =
 ARRAY_FLAG          =
-OPENMP_FLAG         = -fopenmp
+OPENMP_FLAG         = -fopenmp --offload-arch=${GPUARCH} -DUSE_OMP_GET_WTIME
 OPENACC_FLAG        =
 CUDA_FLAG           =
 SEQUENTIAL_FLAG     =