Cleanup fortran examples for flang-new (ROCm#1244)

Author: ronlieb

examples/fortran/bigloop/Makefile

@@ -45,7 +45,7 @@ endif
 
 FORT   =$(LLVM_INSTALL_DIR)/bin/flang
 LFLAGS = 
-FFLAGS = -O3 -m64 -i8 -fopenmp 
+FFLAGS = -O3  -fopenmp
 
 # ----- Demo compile and link in one step, no object code saved
 $(TESTNAME): $(TESTSRC)

examples/fortran/bigloop/bigloop.f95

@@ -35,7 +35,7 @@ subroutine foo(a,b,c)
     end do
    end do
   end do
-!$omp end target teams distribute parallel do
+!  !$omp end target teams distribute parallel do
   return
 end
 

examples/fortran/declare_target/declare_target.f95

@@ -1,6 +1,6 @@
 subroutine decrement_val(i, beta)
         !$omp declare target
-        integer, dimension(*), intent(out) :: beta
+        real, dimension(*), intent(out) :: beta
         integer, value :: i
         beta(i) = beta(i) - 1
 end subroutine
@@ -19,7 +19,7 @@ program main
   call foo(a,b,c)
 
   write(6,*)"a(1)=", a(1), "    a(2)=", a(2)
-  if (a(1).ne.11 .or. a(2).ne.22) then
+  if (a(1).ne.10 .or. a(2).ne.21) then
     write(6,*)"ERROR: wrong answers"
     stop 2
   endif
@@ -30,6 +30,13 @@ subroutine foo(a,b,c)
   parameter (nsize=1000000)
   real a(nsize), b(nsize), c(nsize)
   integer i
+ INTERFACE
+    SUBROUTINE decrement_val(i,beta)
+        real, dimension(*), intent(out) :: beta
+        integer, value :: i
+    END SUBROUTINE
+  END INTERFACE
+
 !$omp declare target(decrement_val)
 !$omp target map(from:a) map(to:b,c)
 !$omp parallel do

examples/fortran/fortran_hip_interop/fortran_hip_interop.f95

@@ -1,6 +1,7 @@
 program main
 
    use omp_lib
+       use iso_c_binding
    implicit none
    interface
      subroutine fortran_callable_init(a,N) bind(c)
@@ -26,7 +27,7 @@ subroutine fortran_callable_init(a,N) bind(c)
 
    !$OMP TARGET DATA MAP(tofrom:arr1) MAP(from:crr1)
 
-   !$OMP TARGET DATA USE_DEVICE_PTR(arr1)
+   !$OMP TARGET DATA USE_DEVICE_ADDR(arr1)
    call fortran_callable_init(c_loc(arr1),nx)
    !$OMP END TARGET DATA