[flang-commits] [flang] [flang][NFC] Strip trailing whitespace from tests (14 of 14) (PR #172493)
Tarun Prabhu via flang-commits
flang-commits at lists.llvm.org
Tue Dec 16 07:03:29 PST 2025
https://github.com/tarunprabhu created https://github.com/llvm/llvm-project/pull/172493
Only some fortran source files in flang/test/Semantics/OpenMP have been modified. This is the last of the commits cleaning up trailing whitespace in the Fortran files in flang/tests.
>From 8058c38c437e1ddf2e3075d0aa11333c572e8271 Mon Sep 17 00:00:00 2001
From: Tarun Prabhu <tarun at lanl.gov>
Date: Tue, 16 Dec 2025 07:35:10 -0700
Subject: [PATCH] [flang][NFC] Strip trailing whitespace from tests (14 of 14)
Only some fortran source files in flang/test/Semantics/OpenMP have been
modified. This is the last of the commits cleaning up trailing whitespace in
the Fortran files in flang/tests.
---
flang/test/Semantics/OpenMP/if-clause-45.f90 | 4 +-
flang/test/Semantics/OpenMP/if-clause-50.f90 | 4 +-
flang/test/Semantics/OpenMP/if-clause.f90 | 4 +-
flang/test/Semantics/OpenMP/in-reduction.f90 | 2 +-
flang/test/Semantics/OpenMP/linear-iter.f90 | 8 ++--
flang/test/Semantics/OpenMP/loop-bind.f90 | 2 +-
flang/test/Semantics/OpenMP/map-clause.f90 | 4 +-
flang/test/Semantics/OpenMP/masked.f90 | 2 +-
.../Semantics/OpenMP/nested-distribute.f90 | 12 +++---
flang/test/Semantics/OpenMP/nested-master.f90 | 4 +-
flang/test/Semantics/OpenMP/nested-simd.f90 | 18 ++++-----
flang/test/Semantics/OpenMP/nested01.f90 | 2 +-
flang/test/Semantics/OpenMP/nontemporal.f90 | 4 +-
.../OpenMP/omp-atomic-assignment-stmt.f90 | 6 +--
flang/test/Semantics/OpenMP/ordered-simd.f90 | 40 +++++++++----------
flang/test/Semantics/OpenMP/scan1.f90 | 4 +-
.../test/Semantics/OpenMP/sync-critical02.f90 | 2 +-
.../test/Semantics/OpenMP/task-reduction.f90 | 2 +-
18 files changed, 62 insertions(+), 62 deletions(-)
diff --git a/flang/test/Semantics/OpenMP/if-clause-45.f90 b/flang/test/Semantics/OpenMP/if-clause-45.f90
index b0b0a2431303c..b013a33094727 100644
--- a/flang/test/Semantics/OpenMP/if-clause-45.f90
+++ b/flang/test/Semantics/OpenMP/if-clause-45.f90
@@ -303,7 +303,7 @@ program main
!ERROR: TARGET is not a constituent of the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(target: .true.)
-
+
!ERROR: At most one IF clause can appear on the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(.true.) if(target exit data: .false.)
@@ -484,7 +484,7 @@ program main
! TARGET UPDATE
! ----------------------------------------------------------------------------
!$omp target update to(i) if(.true.)
-
+
!$omp target update to(i) if(target update: .true.)
!ERROR: TARGET is not a constituent of the TARGET UPDATE directive
diff --git a/flang/test/Semantics/OpenMP/if-clause-50.f90 b/flang/test/Semantics/OpenMP/if-clause-50.f90
index eb59776fede7b..3c385cdad9e65 100644
--- a/flang/test/Semantics/OpenMP/if-clause-50.f90
+++ b/flang/test/Semantics/OpenMP/if-clause-50.f90
@@ -280,7 +280,7 @@ program main
!ERROR: TARGET is not a constituent of the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(target: .true.)
-
+
!ERROR: At most one IF clause can appear on the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(.true.) if(target exit data: .false.)
@@ -457,7 +457,7 @@ program main
! TARGET UPDATE
! ----------------------------------------------------------------------------
!$omp target update to(i) if(.true.)
-
+
!$omp target update to(i) if(target update: .true.)
!ERROR: TARGET is not a constituent of the TARGET UPDATE directive
diff --git a/flang/test/Semantics/OpenMP/if-clause.f90 b/flang/test/Semantics/OpenMP/if-clause.f90
index 23be4a751c892..5e19c78a1ce76 100644
--- a/flang/test/Semantics/OpenMP/if-clause.f90
+++ b/flang/test/Semantics/OpenMP/if-clause.f90
@@ -280,7 +280,7 @@ program main
!ERROR: TARGET is not a constituent of the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(target: .true.)
-
+
!ERROR: At most one IF clause can appear on the TARGET EXIT DATA directive
!$omp target exit data map(from: i) if(.true.) if(target exit data: .false.)
@@ -452,7 +452,7 @@ program main
! TARGET UPDATE
! ----------------------------------------------------------------------------
!$omp target update to(i) if(.true.)
-
+
!$omp target update to(i) if(target update: .true.)
!ERROR: TARGET is not a constituent of the TARGET UPDATE directive
diff --git a/flang/test/Semantics/OpenMP/in-reduction.f90 b/flang/test/Semantics/OpenMP/in-reduction.f90
index 3f1e735214061..c3fe7fee73c24 100644
--- a/flang/test/Semantics/OpenMP/in-reduction.f90
+++ b/flang/test/Semantics/OpenMP/in-reduction.f90
@@ -22,7 +22,7 @@ subroutine f02(p)
end
subroutine f03
- common /c/ a, b
+ common /c/ a, b
!ERROR: Common block names are not allowed in IN_REDUCTION clause
!$omp target in_reduction(+: /c/)
!$omp end target
diff --git a/flang/test/Semantics/OpenMP/linear-iter.f90 b/flang/test/Semantics/OpenMP/linear-iter.f90
index 5c9f2d5fb34c4..9f6d37422fc0c 100644
--- a/flang/test/Semantics/OpenMP/linear-iter.f90
+++ b/flang/test/Semantics/OpenMP/linear-iter.f90
@@ -6,7 +6,7 @@ SUBROUTINE LINEAR_GOOD(N)
INTEGER N, i, j, a, b(10)
!$omp target
!$omp teams
- !$omp distribute parallel do simd linear(i)
+ !$omp distribute parallel do simd linear(i)
do i = 1, N
a = 3.14
enddo
@@ -21,7 +21,7 @@ SUBROUTINE LINEAR_BAD(N)
!$omp target
!$omp teams
!ERROR: Variable 'j' not allowed in LINEAR clause, only loop iterator can be specified in LINEAR clause of a construct combined with DISTRIBUTE
- !$omp distribute parallel do simd linear(j)
+ !$omp distribute parallel do simd linear(j)
do i = 1, N
a = 3.14
enddo
@@ -39,7 +39,7 @@ SUBROUTINE LINEAR_BAD(N)
enddo
!$omp end distribute parallel do simd
!$omp end teams
- !$omp end target
+ !$omp end target
!$omp target
!$omp teams
@@ -51,7 +51,7 @@ SUBROUTINE LINEAR_BAD(N)
enddo
!$omp end distribute parallel do simd
!$omp end teams
- !$omp end target
+ !$omp end target
!WARNING: `DISTRIBUTE` must be dynamically enclosed in a `TEAMS` region.
!ERROR: Variable 'j' not allowed in LINEAR clause, only loop iterator can be specified in LINEAR clause of a construct combined with DISTRIBUTE
diff --git a/flang/test/Semantics/OpenMP/loop-bind.f90 b/flang/test/Semantics/OpenMP/loop-bind.f90
index 337a4521339fb..44d3f5788465d 100644
--- a/flang/test/Semantics/OpenMP/loop-bind.f90
+++ b/flang/test/Semantics/OpenMP/loop-bind.f90
@@ -7,7 +7,7 @@
program main
integer :: i, x
- !$omp teams
+ !$omp teams
!ERROR: `BIND(TEAMS)` must be specified since the `LOOP` region is strictly nested inside a `TEAMS` region.
!$omp loop bind(thread)
do i = 1, 10
diff --git a/flang/test/Semantics/OpenMP/map-clause.f90 b/flang/test/Semantics/OpenMP/map-clause.f90
index 65ecbd9456464..7df6246c1c4b4 100644
--- a/flang/test/Semantics/OpenMP/map-clause.f90
+++ b/flang/test/Semantics/OpenMP/map-clause.f90
@@ -6,8 +6,8 @@ subroutine sb(arr)
real(8) :: arr(*)
real :: a
integer:: b, c, i
- common /var/ b, c
-
+ common /var/ b, c
+
!ERROR: Assumed-size whole arrays may not appear on the MAP clause
!$omp target map(arr)
do i = 1, 100
diff --git a/flang/test/Semantics/OpenMP/masked.f90 b/flang/test/Semantics/OpenMP/masked.f90
index 1113853ee8a94..36e22ee0be8c5 100644
--- a/flang/test/Semantics/OpenMP/masked.f90
+++ b/flang/test/Semantics/OpenMP/masked.f90
@@ -7,7 +7,7 @@ subroutine test_masked()
c = c + 1
!$omp end masked
!ERROR: NOWAIT clause is not allowed on the MASKED directive
- !$omp masked nowait
+ !$omp masked nowait
c = c + 2
!$omp end masked
end subroutine
diff --git a/flang/test/Semantics/OpenMP/nested-distribute.f90 b/flang/test/Semantics/OpenMP/nested-distribute.f90
index 4134ced7d81f6..2ee92dcff9a8f 100644
--- a/flang/test/Semantics/OpenMP/nested-distribute.f90
+++ b/flang/test/Semantics/OpenMP/nested-distribute.f90
@@ -21,7 +21,7 @@ program main
!$omp task
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
- !$omp distribute
+ !$omp distribute
do i = 1, N
a = 3.14d0
enddo
@@ -51,7 +51,7 @@ program main
!$omp parallel
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
- !$omp distribute
+ !$omp distribute
do i = 1, N
a = 3.14d0
enddo
@@ -62,7 +62,7 @@ program main
!ERROR: Only `DISTRIBUTE`, `PARALLEL`, or `LOOP` regions are allowed to be strictly nested inside `TEAMS` region.
!$omp target
!ERROR: `DISTRIBUTE` region has to be strictly nested inside `TEAMS` region.
- !$omp distribute
+ !$omp distribute
do i = 1, 10
j = j + 1
end do
@@ -70,7 +70,7 @@ program main
!$omp end target
!$omp end teams
- !$omp teams
+ !$omp teams
!$omp parallel
do k = 1,10
print *, "hello"
@@ -90,7 +90,7 @@ program main
!$omp end distribute
!$omp end target teams
- !$omp teams
+ !$omp teams
!ERROR: Only `DISTRIBUTE`, `PARALLEL`, or `LOOP` regions are allowed to be strictly nested inside `TEAMS` region.
!$omp task
do k = 1,10
@@ -104,7 +104,7 @@ program main
!$omp end distribute
!$omp end teams
- !$omp task
+ !$omp task
!$omp parallel
do k = 1,10
print *, "hello"
diff --git a/flang/test/Semantics/OpenMP/nested-master.f90 b/flang/test/Semantics/OpenMP/nested-master.f90
index 7e4bb32bb7be1..9ffec3fa42cbd 100644
--- a/flang/test/Semantics/OpenMP/nested-master.f90
+++ b/flang/test/Semantics/OpenMP/nested-master.f90
@@ -15,7 +15,7 @@ program omp_nest_master
!$omp end master
end do
- !$omp sections
+ !$omp sections
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
!$omp master
do i = 1, 10
@@ -24,7 +24,7 @@ program omp_nest_master
!$omp end master
!$omp end sections
- !$omp single
+ !$omp single
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
!$omp master
do i = 1, 10
diff --git a/flang/test/Semantics/OpenMP/nested-simd.f90 b/flang/test/Semantics/OpenMP/nested-simd.f90
index 9b2e40a9f5ab6..1e9f2b12e7374 100644
--- a/flang/test/Semantics/OpenMP/nested-simd.f90
+++ b/flang/test/Semantics/OpenMP/nested-simd.f90
@@ -42,7 +42,7 @@ SUBROUTINE NESTED_BAD(N)
print *, "Hi"
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
!ERROR: TEAMS region can only be strictly nested within the implicit parallel region or TARGET region
- !$omp teams
+ !$omp teams
DO K = 1,N
print *, 'Hello'
END DO
@@ -59,13 +59,13 @@ SUBROUTINE NESTED_BAD(N)
K = K + 1
IF (I <= 10) THEN
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp task
+ !$omp task
do J = 1, N
K = 2
end do
!$omp end task
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp target
+ !$omp target
do J = 1, N
K = 2
end do
@@ -92,13 +92,13 @@ SUBROUTINE NESTED_BAD(N)
K = K + 1
IF (I <= 10) THEN
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp task
+ !$omp task
do J = 1, N
K = 2
end do
!$omp end task
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp target
+ !$omp target
do J = 1, N
K = 2
end do
@@ -126,13 +126,13 @@ SUBROUTINE NESTED_BAD(N)
K = K + 1
IF (I <= 10) THEN
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp task
+ !$omp task
do J = 1, N
K = 2
end do
!$omp end task
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp target
+ !$omp target
do J = 1, N
K = 2
end do
@@ -160,13 +160,13 @@ SUBROUTINE NESTED_BAD(N)
K = K + 1
IF (I <= 10) THEN
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp task
+ !$omp task
do J = 1, N
K = 2
end do
!$omp end task
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
- !$omp target
+ !$omp target
do J = 1, N
K = 2
end do
diff --git a/flang/test/Semantics/OpenMP/nested01.f90 b/flang/test/Semantics/OpenMP/nested01.f90
index 0936e4c1b45a5..c0ec2cc969a03 100644
--- a/flang/test/Semantics/OpenMP/nested01.f90
+++ b/flang/test/Semantics/OpenMP/nested01.f90
@@ -24,7 +24,7 @@
enddo
!$omp end target
enddo
-
+
!$omp do
do i = 1, N
!ERROR: A worksharing region may not be closely nested inside a worksharing, explicit task, taskloop, critical, ordered, atomic, or master region
diff --git a/flang/test/Semantics/OpenMP/nontemporal.f90 b/flang/test/Semantics/OpenMP/nontemporal.f90
index ac662bf28df0f..da30308b6c058 100644
--- a/flang/test/Semantics/OpenMP/nontemporal.f90
+++ b/flang/test/Semantics/OpenMP/nontemporal.f90
@@ -18,7 +18,7 @@ program omp_simd
a(i) = i
end do
!$omp end parallel do simd
-
+
!$omp parallel do simd nontemporal(a)
do i = 1, 10
a(i) = i
@@ -90,5 +90,5 @@ program omp_simd
end do
!$omp end target teams distribute simd
-
+
end program omp_simd
diff --git a/flang/test/Semantics/OpenMP/omp-atomic-assignment-stmt.f90 b/flang/test/Semantics/OpenMP/omp-atomic-assignment-stmt.f90
index 8fdd2aed3ec1f..4843e44dd2535 100644
--- a/flang/test/Semantics/OpenMP/omp-atomic-assignment-stmt.f90
+++ b/flang/test/Semantics/OpenMP/omp-atomic-assignment-stmt.f90
@@ -45,8 +45,8 @@ program sample
!$omp atomic
!ERROR: Atomic variable k cannot be ALLOCATABLE
- k = v * k
-
+ k = v * k
+
!$omp atomic write
!ERROR: Within atomic operation z%y and x+z%y access the same storage
z%y = x + z%y
@@ -58,7 +58,7 @@ program sample
!$omp atomic write
!ERROR: Within atomic operation m and min(m,x,z%m)+k access the same storage
m = min(m, x, z%m) + k
-
+
!$omp atomic read
!ERROR: Within atomic operation x and x access the same storage
x = x
diff --git a/flang/test/Semantics/OpenMP/ordered-simd.f90 b/flang/test/Semantics/OpenMP/ordered-simd.f90
index 50560139ea24a..e284a2380001e 100644
--- a/flang/test/Semantics/OpenMP/ordered-simd.f90
+++ b/flang/test/Semantics/OpenMP/ordered-simd.f90
@@ -7,7 +7,7 @@ SUBROUTINE WORK(I)
END SUBROUTINE WORK
SUBROUTINE ORDERED_GOOD(N)
- INTEGER N, I, A(10), B(10), C(10)
+ INTEGER N, I, A(10), B(10), C(10)
!$OMP SIMD
DO I = 1,N
IF (I <= 10) THEN
@@ -27,7 +27,7 @@ SUBROUTINE ORDERED_BAD(N)
IF (I <= 10) THEN
!ERROR: The only OpenMP constructs that can be encountered during execution of a 'SIMD' region are the `ATOMIC` construct, the `LOOP` construct, the `SIMD` construct, the `SCAN` construct and the `ORDERED` construct with the `SIMD` clause.
!ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
@@ -38,18 +38,18 @@ SUBROUTINE ORDERED_BAD(N)
DO I = 1,N
IF (I <= 10) THEN
!ERROR: An ORDERED directive without the DEPEND clause must be closely nested in a worksharing-loop (or worksharing-loop SIMD) region with ORDERED clause without the parameter
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END PARALLEL DO
- !$OMP CRITICAL
+ !$OMP CRITICAL
DO I = 1,N
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
@@ -59,71 +59,71 @@ SUBROUTINE ORDERED_BAD(N)
!$OMP CRITICAL
WRITE(*,*) I
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
!$OMP END CRITICAL
- !$OMP ORDERED
+ !$OMP ORDERED
WRITE(*,*) I
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
!$OMP END ORDERED
- !$OMP TASK
+ !$OMP TASK
C = C - A * B
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
!$OMP END TASK
- !$OMP TASKLOOP
+ !$OMP TASKLOOP
DO I = 1,N
IF (I <= 10) THEN
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
ENDIF
END DO
!$OMP END TASKLOOP
- !$OMP CRITICAL
+ !$OMP CRITICAL
C = C - A * B
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
!$OMP END CRITICAL
- !$OMP ORDERED
+ !$OMP ORDERED
C = C - A * B
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
!$OMP END MASTER
!$OMP END ORDERED
- !$OMP TASK
+ !$OMP TASK
C = C - A * B
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
@@ -131,13 +131,13 @@ SUBROUTINE ORDERED_BAD(N)
!$OMP END TASK
!$OMP TASKLOOP
- DO J= 1,N
+ DO J= 1,N
C = C - A * B
!ERROR: `MASTER` region may not be closely nested inside of `WORKSHARING`, `LOOP`, `TASK`, `TASKLOOP`, or `ATOMIC` region.
!$OMP MASTER
DO I = 1,N
!ERROR: `ORDERED` region may not be closely nested inside of `CRITICAL`, `ORDERED`, explicit `TASK` or `TASKLOOP` region.
- !$OMP ORDERED
+ !$OMP ORDERED
CALL WORK(I)
!$OMP END ORDERED
END DO
diff --git a/flang/test/Semantics/OpenMP/scan1.f90 b/flang/test/Semantics/OpenMP/scan1.f90
index 9e8fc9dec1c6b..1a743094c033a 100644
--- a/flang/test/Semantics/OpenMP/scan1.f90
+++ b/flang/test/Semantics/OpenMP/scan1.f90
@@ -2,7 +2,7 @@
subroutine test_scan()
integer x, y, k, z
-
+
!ERROR: Orphaned SCAN directives are prohibited; perhaps you forgot to enclose the directive in to a WORKSHARING LOOP, a WORKSHARING LOOP SIMD or a SIMD directive.
!ERROR: List item x must appear in REDUCTION clause with the INSCAN modifier of the parent directive
!$omp scan inclusive(x)
@@ -11,7 +11,7 @@ subroutine test_scan()
!ERROR: UNTIED clause is not allowed on the SCAN directive
!$omp scan untied
end do
-
+
!$omp parallel do simd
do k = 1, n
!ERROR: Exactly one of EXCLUSIVE or INCLUSIVE clause is expected
diff --git a/flang/test/Semantics/OpenMP/sync-critical02.f90 b/flang/test/Semantics/OpenMP/sync-critical02.f90
index b77bd66aac5f8..b70c270844277 100644
--- a/flang/test/Semantics/OpenMP/sync-critical02.f90
+++ b/flang/test/Semantics/OpenMP/sync-critical02.f90
@@ -43,7 +43,7 @@ program sample
!$omp critical (foo) hint(omp_lock_hint_uncontended)
i = i - 1
!$omp end critical (foo)
-
+
!$omp critical hint(omp_sync_hint_none)
j = j + 1
!$omp end critical
diff --git a/flang/test/Semantics/OpenMP/task-reduction.f90 b/flang/test/Semantics/OpenMP/task-reduction.f90
index f76b07ae568f4..baa363bdd00ad 100644
--- a/flang/test/Semantics/OpenMP/task-reduction.f90
+++ b/flang/test/Semantics/OpenMP/task-reduction.f90
@@ -22,7 +22,7 @@ subroutine f02(p)
end
subroutine f03
- common /c/ a, b
+ common /c/ a, b
!ERROR: Common block names are not allowed in TASK_REDUCTION clause
!$omp taskgroup task_reduction(+: /c/)
!$omp end taskgroup
More information about the flang-commits
mailing list