[flang][NFC] Strip trailing whitespace from tests (7 of N)

Only some fortran source files in flang/test/Lower have been modified.
The other files in the directory will be cleaned up in subsequent
commits

Author: tarunprabhu

flang/test/Lower/assignment.f90

@@ -26,7 +26,7 @@ subroutine sub2(a, b)
 integer function negi(a)
   integer :: a
   negi = -a
-end 
+end
 
 ! CHECK-LABEL: func @_QPnegi(
 ! CHECK-SAME:    %[[A:.*]]: !fir.ref<i32> {fir.bindc_name = "a"}) -> i32 {
@@ -41,7 +41,7 @@ integer function negi(a)
 real function negr(a)
   real :: a
   negr = -a
-end 
+end
 
 ! CHECK-LABEL: func @_QPnegr(
 ! CHECK-SAME:    %[[A:.*]]: !fir.ref<f32> {fir.bindc_name = "a"}) -> f32 {
@@ -55,7 +55,7 @@ real function negr(a)
 complex function negc(a)
   complex :: a
   negc = -a
-end 
+end
 
 ! CHECK-LABEL: func @_QPnegc(
 ! CHECK-SAME:    %[[A:.*]]: !fir.ref<complex<f32>> {fir.bindc_name = "a"}) -> complex<f32> {

flang/test/Lower/assumed-shape-callee.f90

@@ -8,7 +8,7 @@
 ! of making a new fir.box and this would break all these tests. In fact, for non
 ! contiguous arrays, this is the case. Find a better way to tests symbol lowering/mapping.
 
-! CHECK-LABEL: func @_QPtest_assumed_shape_1(%arg0: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "x", fir.contiguous}) 
+! CHECK-LABEL: func @_QPtest_assumed_shape_1(%arg0: !fir.box<!fir.array<?xi32>> {fir.bindc_name = "x", fir.contiguous})
 subroutine test_assumed_shape_1(x)
   integer, contiguous :: x(:)
   ! CHECK: %[[addr:.*]] = fir.box_addr %arg0 : (!fir.box<!fir.array<?xi32>>) -> !fir.ref<!fir.array<?xi32>>

flang/test/Lower/assumed-shape-caller.f90

@@ -59,7 +59,7 @@ subroutine takes_box(y)
     end subroutine
   end interface
   integer :: v(:)
-  real :: x(:) 
+  real :: x(:)
   call takes_box(x(v))
 ! CHECK:  %[[VAL_2:.*]] = arith.constant 1 : index
 ! CHECK:  %[[VAL_3:.*]] = arith.constant 0 : index

flang/test/Lower/big-integer-parameter.f90

@@ -31,7 +31,7 @@ program i128
 
 ! CHECK-LABEL: fir.global internal @_QFECx constant : i128 {
 ! CHECK-NEXT:   %{{.*}} = arith.constant 9223372036854775808 : i128
- 
+
 ! CHECK-LABEL: fir.global internal @_QFECy constant : i128 {
 ! CHECK-NEXT: %{{.*}} = arith.constant -9223372036854775809 : i128
 

flang/test/Lower/c-interoperability.f90

@@ -26,7 +26,7 @@ module c_interoperability_test
   end type thing_with_pointer
 
   type(thing_with_pointer) :: this_thing
-  
+
 contains
   function get_a_thing()
     type(thing_with_pointer) :: get_a_thing

flang/test/Lower/call-copy-in-out.f90

@@ -120,7 +120,7 @@ subroutine bar_intent_out(x)
 ! CHECK:  %[[cast:.*]] = fir.convert %[[addr]] : (!fir.heap<!fir.array<?xf32>>) -> !fir.ref<!fir.array<100xf32>>
 ! CHECK:  fir.call @_QPbar_intent_out(%[[cast]]) {{.*}}: (!fir.ref<!fir.array<100xf32>>) -> ()
   call bar_intent_out(x)
-  
+
 ! CHECK: fir.if %[[not_contiguous]]
 ! CHECK: fir.call @_FortranACopyOutAssign
 ! CHECK: return
@@ -224,7 +224,7 @@ subroutine test_char(x)
 ! CHECK:             %[[VAL_32:.*]] = fir.convert %[[TMP_BOX_REF]] : (!fir.ref<!fir.box<!fir.heap<!fir.array<?x!fir.char<1,10>>>>>) -> !fir.ref<!fir.box<none>>
 ! CHECK:             fir.call @_FortranACopyOutAssign(%[[VAL_31]], %[[VAL_32]], %{{.*}}, %{{.*}}) fastmath<contract> : (!fir.ref<!fir.box<none>>, !fir.ref<!fir.box<none>>, !fir.ref<i8>, i32) -> ()
 ! CHECK:           }
-  
+
   character(10) :: x(:)
   call bar_char(x)
   ! CHECK:         return

flang/test/Lower/charconvert.f90

@@ -1,17 +1,17 @@
 ! RUN: bbc -emit-hlfir %s -o - | FileCheck %s
 
 subroutine test_c1_to_c4(c4, c1)
-  character(len=*, kind=4) :: c4                           
-  character(len=*, kind=1) :: c1            
-  c4 = c1                                         
-end subroutine                                           
+  character(len=*, kind=4) :: c4
+  character(len=*, kind=1) :: c1
+  c4 = c1
+end subroutine
 
 subroutine test_c4_to_c1(c4, c1)
-  character(len=*, kind=4) :: c4                           
-  character(len=*, kind=1) :: c1            
-  c1 = c4                                         
-end subroutine                                           
-                                                
+  character(len=*, kind=4) :: c4
+  character(len=*, kind=1) :: c1
+  c1 = c4
+end subroutine
+
 ! CHECK: func.func @_QPtest_c1_to_c4(%[[ARG0:.*]]: !fir.boxchar<4> {fir.bindc_name = "c4"}, %[[ARG1:.*]]: !fir.boxchar<1> {fir.bindc_name = "c1"}) {
 ! CHECK:   %[[VAL_0:.*]]:2 = fir.unboxchar %[[ARG1]] : (!fir.boxchar<1>) -> (!fir.ref<!fir.char<1,?>>, index)
 ! CHECK:   %[[VAL_1:.*]]:2 = hlfir.declare %[[VAL_0]]#0 typeparams %[[VAL_0]]#1 dummy_scope %{{[0-9]+}} arg {{[0-9]+}} {uniq_name = "_QFtest_c1_to_c4Ec1"} : (!fir.ref<!fir.char<1,?>>, index, !fir.dscope) -> (!fir.boxchar<1>, !fir.ref<!fir.char<1,?>>)

flang/test/Lower/control-flow.f90

@@ -22,4 +22,4 @@ subroutine one(a,b,c)
  ! CHECK: ^bb[[EXIT]]:
  ! CHECK-NEXT: return
 end subroutine one
-    
+

flang/test/Lower/default-initialization.f90

@@ -3,14 +3,14 @@
 
 module test_dinit
   type t
-    integer :: i = 42 
+    integer :: i = 42
   end type
   type t_alloc_comp
     real, allocatable :: i(:)
   end type
   type tseq
     sequence
-    integer :: i = 42 
+    integer :: i = 42
   end type
 contains
 
@@ -26,7 +26,7 @@ subroutine local
     !CHECK: fir.copy %[[ADDR]] to %[[x]] no_overlap : !fir.ref<!fir.type<_QMtest_dinitTt{i:i32}>>, !fir.ref<!fir.type<_QMtest_dinitTt{i:i32}>>
     type(t) :: x
     print *, x%i
-  end subroutine 
+  end subroutine
 
   ! Test local array is default initialized
   ! CHECK-LABEL: func @_QMtest_dinitPlocal_array()
@@ -38,7 +38,7 @@ subroutine local_array()
     ! CHECK: fir.call @_FortranAInitialize(%[[xboxNone]], %{{.*}}, %{{.*}}) {{.*}}: (!fir.box<none>, !fir.ref<i8>, i32) -> ()
     type(t) :: x(4)
     print *, x(2)%i
-  end subroutine 
+  end subroutine
 
   ! Test allocatable component triggers default initialization of local
   ! scalars.
@@ -48,7 +48,7 @@ subroutine local_alloc_comp
     !CHECK: %[[ADDR:.*]] = fir.address_of(@_QQ_QMtest_dinitTt_alloc_comp.DerivedInit) : !fir.ref<!fir.type<_QMtest_dinitTt_alloc_comp{i:!fir.box<!fir.heap<!fir.array<?xf32>>>}>>
     !CHECK: fir.copy %[[ADDR]] to %[[x]] no_overlap : !fir.ref<!fir.type<_QMtest_dinitTt_alloc_comp{i:!fir.box<!fir.heap<!fir.array<?xf32>>>}>>, !fir.ref<!fir.type<_QMtest_dinitTt_alloc_comp{i:!fir.box<!fir.heap<!fir.array<?xf32>>>}>>
     type(t_alloc_comp) :: x
-  end subroutine 
+  end subroutine
 
   ! Test function results are default initialized.
   ! CHECK-LABEL: func @_QMtest_dinitPresult() -> !fir.type<_QMtest_dinitTt{i:i32}>
@@ -110,7 +110,7 @@ subroutine local_eq2()
     ! CHECK: %[[ADDR:.*]] = fir.address_of(@_QQ_QMtest_dinitTtseq.DerivedInit) : !fir.ref<!fir.type<_QMtest_dinitTtseq{i:i32}>>
     ! CHECK: fir.copy %[[ADDR]] to %[[x]] no_overlap : !fir.ref<!fir.type<_QMtest_dinitTtseq{i:i32}>>, !fir.ptr<!fir.type<_QMtest_dinitTtseq{i:i32}>>
 
-  
+
     ! CHECK: %[[ycoor:.*]] = fir.coordinate_of %[[equiv]], %c0{{.*}} : (!fir.ref<!fir.array<4xi8>>, index) -> !fir.ref<i8>
     ! CHECK: %[[y:.*]] = fir.convert %[[ycoor]] : (!fir.ref<i8>) -> !fir.ptr<!fir.type<_QMtest_dinitTtseq{i:i32}>>
     ! CHECK: %[[ADDR:.*]] = fir.address_of(@_QQ_QMtest_dinitTtseq.DerivedInit) : !fir.ref<!fir.type<_QMtest_dinitTtseq{i:i32}>>
@@ -129,14 +129,14 @@ subroutine noinit_local_alloc
     ! CHECK-NOT: fir.call @_FortranAInitialize
     type(t), allocatable :: x
     ! CHECK: return
-  end subroutine 
+  end subroutine
 
   ! CHECK-LABEL: func @_QMtest_dinitPnoinit_local_pointer
   subroutine noinit_local_pointer
     ! CHECK-NOT: fir.call @_FortranAInitialize
     type(t), pointer :: x
     ! CHECK: return
-  end subroutine 
+  end subroutine
 
   ! CHECK-LABEL: func @_QMtest_dinitPnoinit_normal_dummy
   subroutine noinit_normal_dummy(x)
@@ -150,7 +150,7 @@ subroutine noinit_intentinout_dummy(x)
     ! CHECK-NOT: fir.call @_FortranAInitialize
     type(t), intent(inout) :: x
     ! CHECK: return
-  end subroutine 
+  end subroutine
 
 
   subroutine test_pointer_intentout(a, b)

flang/test/Lower/derived-allocatable-components.f90

@@ -241,9 +241,9 @@ subroutine ref_scalar_def_char_a(a0_0, a1_0, a0_1, a1_1)
   ! CHECK-DAG: %[[len:.*]] = fir.box_elesize %[[box]]
   ! CHECK-DAG: %[[base:.*]] = fir.box_addr %[[box]]
   ! CHECK: %[[cast:.*]] = fir.convert %[[base]] : (!fir.heap<!fir.array<?x!fir.char<1,?>>>) -> !fir.ref<!fir.array<?x!fir.char<1,?>>>
-  ! CHECK: %[[c7:.*]] = fir.convert %c7{{.*}} : (i64) -> index 
-  ! CHECK: %[[sub:.*]] = arith.subi %[[c7]], %[[dims]]#0 : index 
-  ! CHECK: %[[mul:.*]] = arith.muli %[[len]], %[[sub]] : index 
+  ! CHECK: %[[c7:.*]] = fir.convert %c7{{.*}} : (i64) -> index
+  ! CHECK: %[[sub:.*]] = arith.subi %[[c7]], %[[dims]]#0 : index
+  ! CHECK: %[[mul:.*]] = arith.muli %[[len]], %[[sub]] : index
   ! CHECK: %[[offset:.*]] = arith.addi %[[mul]], %c0{{.*}} : index
   ! CHECK: %[[cnvt:.*]] = fir.convert %[[cast]]
   ! CHECK: %[[addr:.*]] = fir.coordinate_of %[[cnvt]], %[[offset]]
@@ -260,9 +260,9 @@ subroutine ref_scalar_def_char_a(a0_0, a1_0, a0_1, a1_1)
   ! CHECK-DAG: %[[len:.*]] = fir.box_elesize %[[box]]
   ! CHECK-DAG: %[[base:.*]] = fir.box_addr %[[box]]
   ! CHECK: %[[cast:.*]] = fir.convert %[[base]] : (!fir.heap<!fir.array<?x!fir.char<1,?>>>) -> !fir.ref<!fir.array<?x!fir.char<1,?>>>
-  ! CHECK: %[[c7:.*]] = fir.convert %c7{{.*}} : (i64) -> index 
-  ! CHECK: %[[sub:.*]] = arith.subi %[[c7]], %[[dims]]#0 : index 
-  ! CHECK: %[[mul:.*]] = arith.muli %[[len]], %[[sub]] : index 
+  ! CHECK: %[[c7:.*]] = fir.convert %c7{{.*}} : (i64) -> index
+  ! CHECK: %[[sub:.*]] = arith.subi %[[c7]], %[[dims]]#0 : index
+  ! CHECK: %[[mul:.*]] = arith.muli %[[len]], %[[sub]] : index
   ! CHECK: %[[offset:.*]] = arith.addi %[[mul]], %c0{{.*}} : index
   ! CHECK: %[[cnvt:.*]] = fir.convert %[[cast]]
   ! CHECK: %[[addr:.*]] = fir.coordinate_of %[[cnvt]], %[[offset]]