Tidy up tests

Author: agozillon

flang/test/Lower/OpenMP/optional-argument-map-3.f90

@@ -2,24 +2,24 @@
 
 module mod
 contains
-      subroutine foo( dt, switch )
-        implicit none
-        real(4), dimension(:), INTENT(INOUT) :: dt
-        logical, INTENT(IN) :: switch
-        integer :: dim, idx
+   subroutine foo(dt, switch)
+      implicit none
+      real(4), dimension(:), intent(inout) :: dt
+      logical, intent(in) :: switch
+      integer :: dim, idx
 
-        if ( switch ) then
+      if (switch) then
 !$omp target teams distribute parallel do
-            do idx = 1, 100
+         do idx = 1, 100
             dt(idx) = 20
-            end do
-        else
+         end do
+      else
 !$omp target teams distribute parallel do
-            do idx = 1, 100
+         do idx = 1, 100
             dt(idx) = 30
-            end do
-        end if
-      end subroutine foo
+         end do
+      end if
+   end subroutine foo
 end module
 
 ! CHECK-LABEL:   func.func @{{.*}}(

offload/test/offloading/fortran/optional-mapped-arguments-3.f90

@@ -8,38 +8,38 @@
 ! RUN: %libomptarget-compile-fortran-run-and-check-generic
 module reproducer_mod
 contains
-      subroutine branching_target_call( dt, switch )
+   subroutine branching_target_call(dt, switch)
       implicit none
-      real(4), dimension(:), INTENT(INOUT) :: dt
-      logical, INTENT(IN) :: switch
+      real(4), dimension(:), intent(inout) :: dt
+      logical, intent(in) :: switch
       integer :: dim, idx
 
       dim = size(dt)
-      if ( switch ) then
+      if (switch) then
 !$omp target teams distribute parallel do
-        do idx = 1, dim
-          dt(idx) = 20
-        end do
+         do idx = 1, dim
+            dt(idx) = 20
+         end do
       else
 !$omp target teams distribute parallel do
-        do idx = 1, dim
-          dt(idx) = 30
-        end do
+         do idx = 1, dim
+            dt(idx) = 30
+         end do
       end if
-      end subroutine branching_target_call
+   end subroutine branching_target_call
 end module reproducer_mod
 
 program reproducer
-  use reproducer_mod
-  implicit none
-  real(4), dimension(:), allocatable :: dt
-  integer :: n = 21312
-  integer :: i
+   use reproducer_mod
+   implicit none
+   real(4), dimension(:), allocatable :: dt
+   integer :: n = 21312
+   integer :: i
 
-  allocate(dt(n))
-  call branching_target_call(dt, .FALSE.)
-  call branching_target_call(dt, .TRUE.)
-  print *, "PASSED"
+   allocate (dt(n))
+   call branching_target_call(dt, .FALSE.)
+   call branching_target_call(dt, .TRUE.)
+   print *, "PASSED"
 end program reproducer
 
 ! CHECK: PASSED