diff --git a/flang/test/Semantics/OpenACC/acc-atomic-validity.f90 b/flang/test/Semantics/OpenACC/acc-atomic-validity.f90 index 5c8d33fbbadc7..9f8450456586c 100644 --- a/flang/test/Semantics/OpenACC/acc-atomic-validity.f90 +++ b/flang/test/Semantics/OpenACC/acc-atomic-validity.f90 @@ -37,7 +37,7 @@ program openacc_atomic_validity !$acc atomic read i = c(i) - + !$acc atomic read if(.true.) i = c(i) @@ -45,12 +45,12 @@ program openacc_atomic_validity i = c(i) !$acc end atomic - !$acc atomic read if(l) + !$acc atomic read if(l) i = c(i) !$acc end atomic !ERROR: FINALIZE clause is not allowed on the ATOMIC READ FINALIZE IF(L) - !$acc atomic read finalize if(l) + !$acc atomic read finalize if(l) i = c(i) !$acc end atomic @@ -65,7 +65,7 @@ program openacc_atomic_validity c(1) = c(2) c(1) = c(3) !$acc end atomic - + !ERROR: The assignments in this atomic capture construct do not update a variable and capture either its initial or final value !$acc atomic capture c(1) = c(2) diff --git a/flang/test/Semantics/OpenACC/acc-default-none-function.f90 b/flang/test/Semantics/OpenACC/acc-default-none-function.f90 index f0a697fc21669..accd03ad03062 100644 --- a/flang/test/Semantics/OpenACC/acc-default-none-function.f90 +++ b/flang/test/Semantics/OpenACC/acc-default-none-function.f90 @@ -8,7 +8,7 @@ integer function dosomething(res) dosomething = res + 1 end function end module - + program main use mm_acc_rout_function implicit none diff --git a/flang/test/Semantics/OpenACC/acc-error.f90 b/flang/test/Semantics/OpenACC/acc-error.f90 index 69ee59f97ec6b..b930c25094b1f 100644 --- a/flang/test/Semantics/OpenACC/acc-error.f90 +++ b/flang/test/Semantics/OpenACC/acc-error.f90 @@ -8,7 +8,7 @@ subroutine test(a, n) !ERROR: expected OpenACC directive !$acc p integer :: i,j - + i = 0 !ERROR: expected OpenACC directive !$acc p diff --git a/flang/test/Semantics/OpenACC/acc-parallel.f90 b/flang/test/Semantics/OpenACC/acc-parallel.f90 index 45c0fafbed1b6..b3120e63ff6a1 100644 --- a/flang/test/Semantics/OpenACC/acc-parallel.f90 +++ b/flang/test/Semantics/OpenACC/acc-parallel.f90 @@ -204,7 +204,7 @@ end program openacc_parallel_validity subroutine acc_parallel_default_none integer :: i, l real :: a(10,10) - l = 10 + l = 10 !$acc parallel default(none) !$acc loop !ERROR: The DEFAULT(NONE) clause requires that 'l' must be listed in a data-mapping clause diff --git a/flang/test/Semantics/OpenACC/acc-reduction-validity.f90 b/flang/test/Semantics/OpenACC/acc-reduction-validity.f90 index fd83e411191db..4f73d5170b4de 100644 --- a/flang/test/Semantics/OpenACC/acc-reduction-validity.f90 +++ b/flang/test/Semantics/OpenACC/acc-reduction-validity.f90 @@ -171,14 +171,14 @@ program openacc_reduction_validity !ERROR: No explicit type declared for 'xyz' !$acc parallel reduction(+:xyz) - !$acc end parallel + !$acc end parallel end program subroutine sum() !ERROR: 'sum' is already declared in this scoping unit - integer :: i,sum + integer :: i,sum sum = 0 !$acc parallel !ERROR: Only variables are allowed in data clauses on the LOOP directive diff --git a/flang/test/Semantics/allocate14.f90 b/flang/test/Semantics/allocate14.f90 index a97cf5ad88b08..bbd7a413f0ac6 100644 --- a/flang/test/Semantics/allocate14.f90 +++ b/flang/test/Semantics/allocate14.f90 @@ -2,7 +2,7 @@ ! Check for semantic errors in ALLOCATE statements program allocate14 - + integer, allocatable :: i1, i2 character(200), allocatable :: msg1, msg2 type t @@ -53,4 +53,3 @@ program allocate14 !TODO: ERRMSG variable in DEALLOCATE must not be the variable being deallocated deallocate(ts, stat=ts(1)%i, errmsg=ts(1)%msg) end program - diff --git a/flang/test/Semantics/bindings01.f90 b/flang/test/Semantics/bindings01.f90 index 3283ac30eb075..ae02b8f5142df 100644 --- a/flang/test/Semantics/bindings01.f90 +++ b/flang/test/Semantics/bindings01.f90 @@ -147,7 +147,7 @@ module m2 procedure proc end type child contains - subroutine proc + subroutine proc end subroutine end module m2 diff --git a/flang/test/Semantics/collectives05.f90 b/flang/test/Semantics/collectives05.f90 index 0dea7e6fcff08..8dd996efb9c17 100644 --- a/flang/test/Semantics/collectives05.f90 +++ b/flang/test/Semantics/collectives05.f90 @@ -56,7 +56,7 @@ program main allocate(foo_t :: polymorphic) ! Test all statically verifiable semantic requirements on co_reduce arguments - ! Note: We cannot check requirements that relate to "corresponding references." + ! Note: We cannot check requirements that relate to "corresponding references." ! References can correspond only if they execute on differing images. A code that ! executes in a single image might be standard-conforming even if the same code ! executing in multiple images is not. diff --git a/flang/test/Semantics/data03.f90 b/flang/test/Semantics/data03.f90 index d9bead778433b..cf3ff857f56d1 100644 --- a/flang/test/Semantics/data03.f90 +++ b/flang/test/Semantics/data03.f90 @@ -44,7 +44,7 @@ subroutine CheckObject DATA(a[i], i = 1, 5) / 5 * 1 / !C875 !ERROR: Data object variable must not be a function reference - DATA f(1) / 1 / + DATA f(1) / 1 / !C875 !ERROR: Data object must have constant subscripts DATA b(ind) / 1 / diff --git a/flang/test/Semantics/doconcurrent01.f90 b/flang/test/Semantics/doconcurrent01.f90 index fddb91639ee51..827c533795920 100644 --- a/flang/test/Semantics/doconcurrent01.f90 +++ b/flang/test/Semantics/doconcurrent01.f90 @@ -1,6 +1,6 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 ! C1141 -! A reference to the procedure IEEE_SET_HALTING_MODE ! from the intrinsic +! A reference to the procedure IEEE_SET_HALTING_MODE ! from the intrinsic ! module IEEE_EXCEPTIONS, shall not ! appear within a DO CONCURRENT construct. ! ! C1137 diff --git a/flang/test/Semantics/doconcurrent05.f90 b/flang/test/Semantics/doconcurrent05.f90 index a826e06dcb075..cedc91441f497 100644 --- a/flang/test/Semantics/doconcurrent05.f90 +++ b/flang/test/Semantics/doconcurrent05.f90 @@ -1,5 +1,5 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if +! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! it belongs to that construct or an outer construct. subroutine do_concurrent_test1(n) diff --git a/flang/test/Semantics/doconcurrent06.f90 b/flang/test/Semantics/doconcurrent06.f90 index 917554d38b706..4ea49f5865149 100644 --- a/flang/test/Semantics/doconcurrent06.f90 +++ b/flang/test/Semantics/doconcurrent06.f90 @@ -1,5 +1,5 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if +! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! it belongs to that construct or an outer construct. subroutine do_concurrent_test1(n) diff --git a/flang/test/Semantics/doconcurrent08.f90 b/flang/test/Semantics/doconcurrent08.f90 index 48d653fc65896..0dff79d63be6f 100644 --- a/flang/test/Semantics/doconcurrent08.f90 +++ b/flang/test/Semantics/doconcurrent08.f90 @@ -1,5 +1,5 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C1140 -- A statement that might result in the deallocation of a polymorphic +! C1140 -- A statement that might result in the deallocation of a polymorphic ! entity shall not appear within a DO CONCURRENT construct. module m1 ! Base type with scalar components diff --git a/flang/test/Semantics/dosemantics05.f90 b/flang/test/Semantics/dosemantics05.f90 index b77e078fd69c9..89eebce4fe27e 100644 --- a/flang/test/Semantics/dosemantics05.f90 +++ b/flang/test/Semantics/dosemantics05.f90 @@ -29,7 +29,7 @@ subroutine s1() p_or_c => c jvar = 5 - + ! References in this DO CONCURRENT are OK since there's no DEFAULT(NONE) ! locality-spec associate (avar => ivar) @@ -46,7 +46,7 @@ subroutine s1() mvar = 3.5 end do end associate - + associate (avar => ivar) !ERROR: DO CONCURRENT step expression may not be zero do concurrent (i = 1:2:0) default(none) shared(jvar) local(kvar) @@ -95,5 +95,5 @@ subroutine s1() end select x = 5.0 ! OK, we're not in a DO CONCURRENT - + end subroutine s1 diff --git a/flang/test/Semantics/dosemantics08.f90 b/flang/test/Semantics/dosemantics08.f90 index 1dc5ba65f6460..6518df0dffbec 100644 --- a/flang/test/Semantics/dosemantics08.f90 +++ b/flang/test/Semantics/dosemantics08.f90 @@ -1,5 +1,5 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C1138 -- +! C1138 -- ! A branch (11.2) within a DO CONCURRENT construct shall not have a branch ! target that is outside the construct. diff --git a/flang/test/Semantics/dosemantics09.f90 b/flang/test/Semantics/dosemantics09.f90 index 9e6bca2cca24c..28be1108a1ec7 100644 --- a/flang/test/Semantics/dosemantics09.f90 +++ b/flang/test/Semantics/dosemantics09.f90 @@ -1,5 +1,5 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -!C1129 +!C1129 !A variable that is referenced by the scalar-mask-expr of a !concurrent-header or by any concurrent-limit or concurrent-step in that !concurrent-header shall not appear in a LOCAL locality-spec in the same DO diff --git a/flang/test/Semantics/dosemantics11.f90 b/flang/test/Semantics/dosemantics11.f90 index 5ceb8348c6172..5f09abf64bbab 100644 --- a/flang/test/Semantics/dosemantics11.f90 +++ b/flang/test/Semantics/dosemantics11.f90 @@ -1,11 +1,11 @@ ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C1135 A cycle-stmt shall not appear within a CHANGE TEAM, CRITICAL, or DO +! C1135 A cycle-stmt shall not appear within a CHANGE TEAM, CRITICAL, or DO ! CONCURRENT construct if it belongs to an outer construct. ! -! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if +! C1167 -- An exit-stmt shall not appear within a DO CONCURRENT construct if ! it belongs to that construct or an outer construct. ! -! C1168 -- An exit-stmt shall not appear within a CHANGE TEAM or CRITICAL +! C1168 -- An exit-stmt shall not appear within a CHANGE TEAM or CRITICAL ! construct if it belongs to an outer construct. subroutine s1() diff --git a/flang/test/Semantics/dosemantics12.f90 b/flang/test/Semantics/dosemantics12.f90 index 3416142dd1b69..8ec8a5d027d92 100644 --- a/flang/test/Semantics/dosemantics12.f90 +++ b/flang/test/Semantics/dosemantics12.f90 @@ -14,7 +14,7 @@ ! limitations under the License. ! !Section 11.1.7.4.3, paragraph 2 states: -! Except for the incrementation of the DO variable that occurs in step (3), +! Except for the incrementation of the DO variable that occurs in step (3), ! the DO variable shall neither be redefined nor become undefined while the ! DO construct is active. @@ -176,14 +176,14 @@ subroutine s7() integer :: iostatVar, nextrecVar, numberVar, posVar, reclVar, sizeVar - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) ! Redefinition via use in IOSTAT specifier (section 19.6.5, case (10)) do iostatVar = 1,20 print *, "hello" !ERROR: Cannot redefine DO variable 'iostatvar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do @@ -191,7 +191,7 @@ subroutine s7() do concurrent (iostatVar = 1:10) print *, "hello" !ERROR: Cannot redefine DO variable 'iostatvar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do @@ -199,7 +199,7 @@ subroutine s7() do nextrecVar = 1,20 print *, "hello" !ERROR: Cannot redefine DO variable 'nextrecvar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do @@ -207,7 +207,7 @@ subroutine s7() do concurrent (nextrecVar = 1:10) print *, "hello" !ERROR: Cannot redefine DO variable 'nextrecvar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do @@ -215,7 +215,7 @@ subroutine s7() do numberVar = 1,20 print *, "hello" !ERROR: Cannot redefine DO variable 'numbervar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do @@ -223,14 +223,14 @@ subroutine s7() do concurrent (numberVar = 1:10) print *, "hello" !ERROR: Cannot redefine DO variable 'numbervar' - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & pos=posVar, recl=reclVar, size=sizeVar) end do ! Redefinition via use in RECL specifier (section 19.6.5, case (10)) do reclVar = 1,20 print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'reclvar' pos=posVar, recl=reclVar, size=sizeVar) end do @@ -238,7 +238,7 @@ subroutine s7() ! Redefinition via use in RECL specifier (section 19.6.5, case (10)) do concurrent (reclVar = 1:10) print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'reclvar' pos=posVar, recl=reclVar, size=sizeVar) end do @@ -246,7 +246,7 @@ subroutine s7() ! Redefinition via use in POS specifier (section 19.6.5, case (10)) do posVar = 1,20 print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'posvar' pos=posVar, recl=reclVar, size=sizeVar) end do @@ -254,7 +254,7 @@ subroutine s7() ! Redefinition via use in POS specifier (section 19.6.5, case (10)) do concurrent (posVar = 1:10) print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'posvar' pos=posVar, recl=reclVar, size=sizeVar) end do @@ -262,7 +262,7 @@ subroutine s7() ! Redefinition via use in SIZE specifier (section 19.6.5, case (10)) do sizeVar = 1,20 print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'sizevar' pos=posVar, recl=reclVar, size=sizeVar) end do @@ -270,7 +270,7 @@ subroutine s7() ! Redefinition via use in SIZE specifier (section 19.6.5, case (10)) do concurrent (sizeVar = 1:10) print *, "hello" - inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & + inquire(3, iostat=iostatVar, nextrec=nextrecVar, number=numberVar, & !ERROR: Cannot redefine DO variable 'sizevar' pos=posVar, recl=reclVar, size=sizeVar) end do diff --git a/flang/test/Semantics/etime.f90 b/flang/test/Semantics/etime.f90 index 28735c2a7aacf..fc62942d25341 100644 --- a/flang/test/Semantics/etime.f90 +++ b/flang/test/Semantics/etime.f90 @@ -7,7 +7,7 @@ subroutine bad_kind_error(values, time) !ERROR: Actual argument for 'values=' has bad type or kind 'REAL(8)' call etime(values, time) end subroutine bad_kind_error - + subroutine bad_args_error(values) REAL(KIND=4), DIMENSION(2) :: values !ERROR: missing mandatory 'time=' argument diff --git a/flang/test/Semantics/getcwd.f90 b/flang/test/Semantics/getcwd.f90 index b6ff16eeec5ac..1ad39ea2d22e1 100644 --- a/flang/test/Semantics/getcwd.f90 +++ b/flang/test/Semantics/getcwd.f90 @@ -7,7 +7,7 @@ subroutine bad_kind_error(cwd, status) !ERROR: Actual argument for 'status=' has bad type or kind 'INTEGER(2)' call getcwd(cwd, status) end subroutine bad_kind_error - + subroutine bad_args_error() !ERROR: missing mandatory 'c=' argument call getcwd() diff --git a/flang/test/Semantics/getdefinition05.f90 b/flang/test/Semantics/getdefinition05.f90 index c504711dc31cd..f139d9e5b5a74 100644 --- a/flang/test/Semantics/getdefinition05.f90 +++ b/flang/test/Semantics/getdefinition05.f90 @@ -1,4 +1,4 @@ -! Tests -fget-symbols-sources with BLOCK that contains same variable name as +! Tests -fget-symbols-sources with BLOCK that contains same variable name as ! another in an outer scope. program main integer :: x diff --git a/flang/test/Semantics/io11.f90 b/flang/test/Semantics/io11.f90 index 6bb7a71f0defc..8eced0c60e24c 100644 --- a/flang/test/Semantics/io11.f90 +++ b/flang/test/Semantics/io11.f90 @@ -521,7 +521,7 @@ subroutine unformattedWriteProc(dtv,unit,iostat,iomsg) end module module m21 - ! Test read and write defined input/output procedures specified as a + ! Test read and write defined input/output procedures specified as a ! type-bound procedure and as a generic for the same derived type with a ! KIND type parameter where they both have the same value type t(typeParam) @@ -647,7 +647,7 @@ subroutine unformattedReadProc1(dtv,unit,iostat,iomsg) end module module m24 - ! Test read and write defined input/output procedures specified as a + ! Test read and write defined input/output procedures specified as a ! type-bound procedure and as a generic for the same derived type with a ! LEN type parameter where they are both assumed type t(typeParam) diff --git a/flang/test/Semantics/kinds02.f90 b/flang/test/Semantics/kinds02.f90 index 02b1e6c8c310a..1adf5821dda29 100644 --- a/flang/test/Semantics/kinds02.f90 +++ b/flang/test/Semantics/kinds02.f90 @@ -1,17 +1,17 @@ ! REQUIRES: x86_64-registered-target ! RUN: %python %S/test_errors.py %s %flang_fc1 -! C712 The value of scalar-int-constant-expr shall be nonnegative and +! C712 The value of scalar-int-constant-expr shall be nonnegative and ! shall specify a representation method that exists on the processor. ! C714 The value of kind-param shall be nonnegative. -! C715 The value of kind-param shall specify a representation method that +! C715 The value of kind-param shall specify a representation method that ! exists on the processor. -! C719 The value of scalar-int-constant-expr shall be nonnegative and shall +! C719 The value of scalar-int-constant-expr shall be nonnegative and shall ! specify a representation method that exists on the processor. -! C725 The optional comma in a length-selector is permitted only if no +! C725 The optional comma in a length-selector is permitted only if no ! double-colon separator appears in the typedeclaration- stmt. -! C727 The value of kind-param shall specify a representation method that +! C727 The value of kind-param shall specify a representation method that ! exists on the processor. -! C728 The value of kind-param shall specify a representation method that +! C728 The value of kind-param shall specify a representation method that ! exists on the processor. ! !ERROR: INTEGER(KIND=0) is not a supported type