[flang][NFC] Strip trailing whitespace from tests (13 of 14)

Only some fortran source files in flang/test/Semantics/OpenMP have been
modified. The remaining files will be cleaned up in subsequent commits.

Author: tarunprabhu

flang/test/Semantics/OpenMP/allocate06.f90

@@ -2,7 +2,7 @@
 
 ! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags
 ! OpenMP Version 5.0
-! 2.11.3 allocate Directive 
+! 2.11.3 allocate Directive
 ! List items specified in the allocate directive must not have the ALLOCATABLE attribute unless the directive is associated with an
 ! allocate statement.
 

flang/test/Semantics/OpenMP/allocate07.f90

@@ -2,7 +2,7 @@
 
 ! RUN: %python %S/../test_errors.py %s %flang_fc1 %openmp_flags
 ! OpenMP Version 5.0
-! 2.11.3 allocate Directive 
+! 2.11.3 allocate Directive
 ! A type parameter inquiry cannot appear in an allocate directive.
 
 subroutine allocate()
@@ -17,21 +17,20 @@ subroutine allocate()
   INTEGER(KIND=4) :: x
   CHARACTER(LEN=32) :: w
   INTEGER, DIMENSION(:), ALLOCATABLE :: y
-  
+
   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
   !$omp allocate(x%KIND)
-  
+
   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
   !$omp allocate(w%LEN)
 
   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
   !$omp allocate(y%KIND)
-  
+
   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
   !$omp allocate(my_var%kind_param)
- 
+
   !ERROR: A type parameter inquiry cannot appear on the ALLOCATE directive
   !$omp allocate(my_var%len_param)
 
 end subroutine allocate
-

flang/test/Semantics/OpenMP/atomic-compare.f90

@@ -5,7 +5,7 @@
   ! Check atomic compare. This combines elements from multiple other "atomic*.f90", as
   ! to avoid having several files with just a few lines in them. atomic compare needs
   ! higher openmp version than the others, so need a separate file.
-  
+
 
   real a, b, c
   a = 1.0

flang/test/Semantics/OpenMP/atomic-hint-clause.f90

@@ -12,29 +12,29 @@ program sample
     integer, parameter :: a = 1
     !$omp atomic hint(1) write
         y = 2
-    
+
     !$omp atomic read hint(2)
-        y = x    
-     
+        y = x
+
     !ERROR: The synchronization hint is not valid
     !$omp atomic hint(3)
         y = y + 10
-    
+
     !$omp atomic update hint(5)
         y = x + y
-    
+
     !ERROR: The synchronization hint is not valid
     !$omp atomic hint(7) capture
     !WARNING: In ATOMIC UPDATE operation with CAPTURE either statement could be the update and the capture, assuming the first one is the capture statement
         y = x
         x = y
     !$omp end atomic
-   
+
     !ERROR: Synchronization hint must be a constant integer value
     !ERROR: Must be a constant value
     !$omp atomic update hint(x)
         y = y * 1
-    
+
     !$omp atomic read hint(4)
         y = x
 
@@ -46,11 +46,11 @@ program sample
 
     !$omp atomic hint(omp_lock_hint_speculative)
         x = y + x
-    
+
     !ERROR: Synchronization hint must be a constant integer value
     !ERROR: Must be a constant value
     !$omp atomic hint(omp_sync_hint_uncontended + omp_sync_hint) read
-        y = x 
+        y = x
 
     !$omp atomic hint(omp_sync_hint_nonspeculative)
         y = y * 9
@@ -72,7 +72,7 @@ program sample
 
     !ERROR: The synchronization hint is not valid
     !$omp atomic hint(omp_sync_hint_uncontended + omp_sync_hint_contended) read
-        y = x 
+        y = x
 
     !ERROR: The synchronization hint is not valid
     !$omp atomic hint(omp_sync_hint_nonspeculative + omp_lock_hint_speculative)

flang/test/Semantics/OpenMP/atomic-update-overloaded-ops.f90

@@ -16,11 +16,11 @@ pure integer function myprocedure(param1, param2)
 program sample
     use new_operator
     implicit none
-    integer :: x, y 
+    integer :: x, y
 
     !$omp atomic update
         x = x / y
-     
+
     !$omp atomic update
     !ERROR: A call to this function is not a valid ATOMIC UPDATE operation
         x = x .MYOPERATOR. y

flang/test/Semantics/OpenMP/atomic02.f90

@@ -30,10 +30,10 @@ program OmpAtomic
    !$omp atomic
    !ERROR: The ** operator is not a valid ATOMIC UPDATE operation
    a = a**4
-   !$omp atomic 
+   !$omp atomic
    !ERROR: Atomic variable c cannot have CHARACTER type
    !ERROR: The atomic variable c should appear as an argument in the update operation
-   c = d 
+   c = d
    !$omp atomic
    !ERROR: The < operator is not a valid ATOMIC UPDATE operation
    l = a .LT. b

flang/test/Semantics/OpenMP/atomic03.f90

@@ -60,7 +60,7 @@ program OmpAtomic
 !$omp atomic update
    !ERROR: The atomic variable z should appear as an argument of the top-level AND operator
    z = IAND(y, 4)
-!$omp atomic update 
+!$omp atomic update
    !ERROR: The atomic variable z should appear as an argument of the top-level OR operator
    z = IOR(y, 5)
 !$omp atomic update
@@ -101,11 +101,11 @@ subroutine more_invalid_atomic_update_stmts()
         integer :: m(10)
     end type
     type(some_type) :: s
- 
+
     !$omp atomic update
     !ERROR: The atomic variable a should be exactly one of the arguments of the top-level MIN operator
         a = min(a, a, b)
-     
+
     !$omp atomic
     !ERROR: The atomic variable a should be exactly one of the arguments of the top-level MAX operator
         a = max(b, a, b, a)
@@ -116,11 +116,11 @@ subroutine more_invalid_atomic_update_stmts()
     !$omp atomic
     !ERROR: The atomic variable a should be exactly one of the arguments of the top-level MAX operator
         a = max(b, a, b, a, b)
-    
+
     !$omp atomic update
     !ERROR: The atomic variable y should appear as an argument of the top-level MIN operator
         y = min(z, x)
-     
+
     !$omp atomic
         z = max(z, y)
 

flang/test/Semantics/OpenMP/atomic04.f90

@@ -60,15 +60,15 @@ program OmpAtomic
    m = m .AND. n
 !$omp atomic
    m = n .AND. m
-!$omp atomic 
+!$omp atomic
    !ERROR: The atomic variable m should appear as an argument of the top-level AND operator
    m = n .AND. l
 
 !$omp atomic
    m = m .OR. n
 !$omp atomic
    m = n .OR. m
-!$omp atomic 
+!$omp atomic
    !ERROR: The atomic variable m should appear as an argument of the top-level OR operator
    m = n .OR. l
 
@@ -175,13 +175,13 @@ subroutine more_invalid_atomic_update_stmts()
         real :: n(10)
     end type
     type(some_type) p
-    
+
     !$omp atomic
         x = x
 
     !$omp atomic update
     !ERROR: This is not a valid ATOMIC UPDATE operation
-        x = 1    
+        x = 1
 
     !$omp atomic update
     !ERROR: The atomic variable a cannot be a proper subexpression of an argument (here: a*b) in the update operation

flang/test/Semantics/OpenMP/clause-validity01.f90

@@ -426,7 +426,7 @@
      enddo
   enddo
   !omp end do nowait
-  !$omp end parallel 
+  !$omp end parallel
 
 ! 2.11.4 parallel-do-simd-clause -> parallel-clause |
 !                                   do-simd-clause
@@ -591,7 +591,7 @@
      allc = 3.14
   enddo
 
-  !$omp target enter data map(alloc:A) device(0) 
-  !$omp target exit data map(delete:A) device(0) 
+  !$omp target enter data map(alloc:A) device(0)
+  !$omp target exit data map(delete:A) device(0)
 
 end program

flang/test/Semantics/OpenMP/critical-empty.f90

@@ -1,4 +1,4 @@
-! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp 
+! RUN: %python %S/../test_errors.py %s %flang_fc1 -fopenmp
 ! Test that there are no errors for an empty critical construct
 
 !$omp critical