-
Notifications
You must be signed in to change notification settings - Fork 15.4k
[flang][NFC] Strip trailing whitespace from tests (10 of N) #170565
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Conversation
Only the fortran source files in flang/test have been modified. The other files in the directory will be cleaned up in subsequent commits
|
@llvm/pr-subscribers-flang-parser @llvm/pr-subscribers-flang-openmp Author: Tarun Prabhu (tarunprabhu) ChangesOnly some fortran source files in flang/test/Parser/OpenMP have been modified. The remaining files will be cleaned up in subsequent commits. Patch is 30.02 KiB, truncated to 20.00 KiB below, full version: https://github.com/llvm/llvm-project/pull/170565.diff 17 Files Affected:
diff --git a/flang/test/Parser/OpenMP/atomic-unparse.f90 b/flang/test/Parser/OpenMP/atomic-unparse.f90
index 16dc7a1a92bf9..9a21d2c6d5486 100644
--- a/flang/test/Parser/OpenMP/atomic-unparse.f90
+++ b/flang/test/Parser/OpenMP/atomic-unparse.f90
@@ -151,7 +151,7 @@ program main
if (i .eq. j + 1) then
i = j
end if
-
+
!$omp atomic compare acquire
if (i .eq. j) then
i = k
@@ -178,7 +178,7 @@ program main
if (i .eq. k) then
i = j
end if
-
+
!ATOMIC
!$omp atomic
i = j
diff --git a/flang/test/Parser/OpenMP/declare-reduction-operator.f90 b/flang/test/Parser/OpenMP/declare-reduction-operator.f90
index 1099daf9de06f..c104e9488f075 100644
--- a/flang/test/Parser/OpenMP/declare-reduction-operator.f90
+++ b/flang/test/Parser/OpenMP/declare-reduction-operator.f90
@@ -11,7 +11,7 @@ subroutine reduce_1 ( n, tts )
real(8) :: x
real(8) :: y
end type
-
+
integer :: n
type(tt) :: tts(n)
type(tt2) :: tts2(n)
@@ -76,7 +76,7 @@ subroutine reduce_1 ( n, tts )
!PARSE-TREE: | Flags = {}
!$omp declare reduction(+ : tt : omp_out = tt(omp_out%x - omp_in%x , omp_out%y - omp_in%y)) initializer(omp_priv = tt(0,0))
-
+
!CHECK: !$OMP DECLARE REDUCTION(+:tt2: omp_out = tt2(omp_out%x - omp_in%x , omp_out%y &
!CHECK: !$OMP&- omp_in%y)) INITIALIZER(omp_priv = tt2(0,0))
@@ -136,7 +136,7 @@ subroutine reduce_1 ( n, tts )
!PARSE-TREE: | | | | | | | LiteralConstant -> IntLiteralConstant = '0'
!PARSE-TREE: | Flags = {}
!$omp declare reduction(+ :tt2 : omp_out = tt2(omp_out%x - omp_in%x , omp_out%y - omp_in%y)) initializer(omp_priv = tt2(0,0))
-
+
type(tt) :: diffp = tt( 0, 0 )
type(tt2) :: diffp2 = tt2( 0, 0 )
integer :: i
diff --git a/flang/test/Parser/OpenMP/declare-variant.f90 b/flang/test/Parser/OpenMP/declare-variant.f90
index 8d8280d89e7e8..07f65beaaf12a 100644
--- a/flang/test/Parser/OpenMP/declare-variant.f90
+++ b/flang/test/Parser/OpenMP/declare-variant.f90
@@ -121,7 +121,7 @@ subroutine f
y = 2
!omp simd
call f2(x, y)
- !omp end simd
+ !omp end simd
contains
subroutine f1 (x, y)
real :: x, y
diff --git a/flang/test/Parser/OpenMP/defaultmap-unparse.f90 b/flang/test/Parser/OpenMP/defaultmap-unparse.f90
index fa0578014071f..6e4d1fe694c83 100644
--- a/flang/test/Parser/OpenMP/defaultmap-unparse.f90
+++ b/flang/test/Parser/OpenMP/defaultmap-unparse.f90
@@ -13,9 +13,9 @@ program main
real :: arrA(N), arrB(N)
integer, target :: arrC(N)
- type(data01) :: data01_a
+ type(data01) :: data01_a
integer, allocatable :: alloc_arr(:)
- integer, pointer :: ptrArr(:)
+ integer, pointer :: ptrArr(:)
arrA = 1.414
arrB = 3.14
@@ -26,8 +26,8 @@ program main
alloc_arr = -1
-!CHECK: !$omp target defaultmap(tofrom:scalar)
- !$omp target defaultmap(tofrom:scalar)
+!CHECK: !$omp target defaultmap(tofrom:scalar)
+ !$omp target defaultmap(tofrom:scalar)
do i = 1, N
a = 3.14
enddo
@@ -66,7 +66,7 @@ program main
!CHECK: !$omp target defaultmap(none:scalar)
!$omp target defaultmap(none:scalar)
a = 4.78
-!CHECK: !$omp end target
+!CHECK: !$omp end target
!$omp end target
!PARSE-TREE: OmpBeginDirective
@@ -98,7 +98,7 @@ program main
!PARSE-TREE: OmpClauseList -> OmpClause -> Defaultmap -> OmpDefaultmapClause
!PARSE-TREE: ImplicitBehavior = Firstprivate
!PARSE-TREE: Modifier -> OmpVariableCategory -> Value = Scalar
-
+
!CHECK: !$omp target defaultmap(tofrom:aggregate)
!$omp target defaultmap(tofrom:aggregate)
arrC(1) = 10
@@ -113,8 +113,8 @@ program main
!PARSE-TREE: OmpClauseList -> OmpClause -> Defaultmap -> OmpDefaultmapClause
!PARSE-TREE: ImplicitBehavior = Tofrom
!PARSE-TREE: Modifier -> OmpVariableCategory -> Value = Aggregate
-
-!CHECK: !$omp target defaultmap(tofrom:allocatable)
+
+!CHECK: !$omp target defaultmap(tofrom:allocatable)
!$omp target defaultmap(tofrom:allocatable)
alloc_arr(23) = 234
!CHECK: !$omp end target
@@ -125,14 +125,14 @@ program main
!PARSE-TREE: OmpClauseList -> OmpClause -> Defaultmap -> OmpDefaultmapClause
!PARSE-TREE: ImplicitBehavior = Tofrom
!PARSE-TREE: Modifier -> OmpVariableCategory -> Value = Allocatable
-
+
!CHECK: !$omp target defaultmap(default:pointer)
!$omp target defaultmap(default:pointer)
ptrArr=>arrC
ptrArr(2) = 5
prtArr(200) = 34
!CHECK: !$omp end target
- !$omp end target
+ !$omp end target
!PARSE-TREE: OmpBeginDirective
!PARSE-TREE: OmpDirectiveName -> llvm::omp::Directive = target
diff --git a/flang/test/Parser/OpenMP/if-clause-unparse.f90 b/flang/test/Parser/OpenMP/if-clause-unparse.f90
index ce058caa54a93..e0334f5a6bb0a 100644
--- a/flang/test/Parser/OpenMP/if-clause-unparse.f90
+++ b/flang/test/Parser/OpenMP/if-clause-unparse.f90
@@ -12,7 +12,7 @@ program if_unparse
! CHECK: !$OMP TARGET UPDATE
! CHECK-SAME: IF(TARGET UPDATE: cond)
!$omp target update if(target update: cond)
-
+
! CHECK: !$OMP TARGET UPDATE
! CHECK-SAME: IF(TARGET UPDATE: cond)
!$omp target update if(targetupdate: cond)
diff --git a/flang/test/Parser/OpenMP/interop-construct.f90 b/flang/test/Parser/OpenMP/interop-construct.f90
index c080d477d1325..44632e7eb192d 100644
--- a/flang/test/Parser/OpenMP/interop-construct.f90
+++ b/flang/test/Parser/OpenMP/interop-construct.f90
@@ -1,5 +1,5 @@
! REQUIRES: openmp_runtime
-! RUN: %flang_fc1 -fdebug-unparse -fopenmp-version=52 %openmp_flags %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
+! RUN: %flang_fc1 -fdebug-unparse -fopenmp-version=52 %openmp_flags %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
! RUN: %flang_fc1 -fdebug-dump-parse-tree-no-sema -fopenmp-version=52 %openmp_flags %s | FileCheck --check-prefix="PARSE-TREE" %s
SUBROUTINE test_interop_01()
@@ -15,7 +15,7 @@ END SUBROUTINE test_interop_01
!PARSE-TREE: | SubroutineStmt
!PARSE-TREE: | | Name = 'test_interop_01'
!PARSE-TREE: | SpecificationPart
-!PARSE-TREE: | | ImplicitPart ->
+!PARSE-TREE: | | ImplicitPart ->
!PARSE-TREE: | ExecutionPart -> Block
!PARSE-TREE: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPStandaloneConstruct -> OpenMPInteropConstruct -> OmpDirectiveSpecification
!PARSE-TREE: | | | OmpDirectiveName -> llvm::omp::Directive = interop
@@ -47,7 +47,7 @@ END SUBROUTINE test_interop_02
!PARSE-TREE: | SpecificationPart
!PARSE-TREE: | | UseStmt
!PARSE-TREE: | | | Name = 'omp_lib'
-!PARSE-TREE: | | ImplicitPart ->
+!PARSE-TREE: | | ImplicitPart ->
!PARSE-TREE: | | DeclarationConstruct -> SpecificationConstruct -> TypeDeclarationStmt
!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec -> KindSelector -> Scalar -> Integer -> Constant -> Expr -> Designator -> DataRef -> Name = 'omp_interop_kind'
!PARSE-TREE: | | | EntityDecl
@@ -90,7 +90,7 @@ END SUBROUTINE test_interop_03
!PARSE-TREE: | SpecificationPart
!PARSE-TREE: | | UseStmt
!PARSE-TREE: | | | Name = 'omp_lib'
-!PARSE-TREE: | | ImplicitPart ->
+!PARSE-TREE: | | ImplicitPart ->
!PARSE-TREE: | | DeclarationConstruct -> SpecificationConstruct -> TypeDeclarationStmt
!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec -> KindSelector -> Scalar -> Integer -> Constant -> Expr -> Designator -> DataRef -> Name = 'omp_interop_kind'
!PARSE-TREE: | | | EntityDecl
@@ -133,13 +133,13 @@ END SUBROUTINE test_interop_04
!PARSE-TREE: | SpecificationPart
!PARSE-TREE: | | UseStmt
!PARSE-TREE: | | | Name = 'omp_lib'
-!PARSE-TREE: | | ImplicitPart ->
+!PARSE-TREE: | | ImplicitPart ->
!PARSE-TREE: | | DeclarationConstruct -> SpecificationConstruct -> TypeDeclarationStmt
!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec -> KindSelector -> Scalar -> Integer -> Constant -> Expr -> Designator -> DataRef -> Name = 'omp_interop_kind'
!PARSE-TREE: | | | EntityDecl
!PARSE-TREE: | | | | Name = 'obj'
!PARSE-TREE: | | DeclarationConstruct -> SpecificationConstruct -> TypeDeclarationStmt
-!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec ->
+!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec ->
!PARSE-TREE: | | | AttrSpec -> ArraySpec -> ExplicitShapeSpec
!PARSE-TREE: | | | | SpecificationExpr -> Scalar -> Integer -> Expr -> LiteralConstant -> IntLiteralConstant = '1'
!PARSE-TREE: | | | ExplicitShapeSpec
@@ -185,7 +185,7 @@ END SUBROUTINE test_interop_05
!PARSE-TREE: | SpecificationPart
!PARSE-TREE: | | UseStmt
!PARSE-TREE: | | | Name = 'omp_lib'
-!PARSE-TREE: | | ImplicitPart ->
+!PARSE-TREE: | | ImplicitPart ->
!PARSE-TREE: | | DeclarationConstruct -> SpecificationConstruct -> TypeDeclarationStmt
!PARSE-TREE: | | | DeclarationTypeSpec -> IntrinsicTypeSpec -> IntegerTypeSpec -> KindSelector -> Scalar -> Integer -> Constant -> Expr -> Designator -> DataRef -> Name = 'omp_interop_kind'
!PARSE-TREE: | | | EntityDecl
diff --git a/flang/test/Parser/OpenMP/lastprivate-clause.f90 b/flang/test/Parser/OpenMP/lastprivate-clause.f90
index 6364b74255521..08ada744a9c96 100644
--- a/flang/test/Parser/OpenMP/lastprivate-clause.f90
+++ b/flang/test/Parser/OpenMP/lastprivate-clause.f90
@@ -1,4 +1,4 @@
-! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
+! RUN: %flang_fc1 -fdebug-unparse -fopenmp -fopenmp-version=50 %s | FileCheck --ignore-case --check-prefix="UNPARSE" %s
! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp -fopenmp-version=50 %s | FileCheck --check-prefix="PARSE-TREE" %s
subroutine foo1()
diff --git a/flang/test/Parser/OpenMP/masked-unparse.f90 b/flang/test/Parser/OpenMP/masked-unparse.f90
index 786b60416846f..7156f4cf94924 100644
--- a/flang/test/Parser/OpenMP/masked-unparse.f90
+++ b/flang/test/Parser/OpenMP/masked-unparse.f90
@@ -1,7 +1,7 @@
! RUN: %flang_fc1 -fdebug-unparse -fopenmp %s | FileCheck --ignore-case %s
! RUN: %flang_fc1 -fdebug-dump-parse-tree -fopenmp %s | FileCheck --check-prefix="PARSE-TREE" %s
-! Check for parsing of masked directive with filter clause.
+! Check for parsing of masked directive with filter clause.
subroutine test_masked()
@@ -9,7 +9,7 @@ subroutine test_masked()
!PARSE-TREE: OmpBeginDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = masked
!CHECK: !$omp masked
- !$omp masked
+ !$omp masked
c = c + 1
!$omp end masked
!PARSE-TREE: OmpBeginDirective
@@ -17,7 +17,7 @@ subroutine test_masked()
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Filter -> Scalar -> Integer -> Expr = '1_4'
!PARSE-TREE-NEXT: LiteralConstant -> IntLiteralConstant = '1'
!CHECK: !$omp masked filter(1_4)
- !$omp masked filter(1)
+ !$omp masked filter(1)
c = c + 2
!$omp end masked
end subroutine
@@ -27,7 +27,7 @@ subroutine test_masked_taskloop_simd()
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = masked taskloop simd
!CHECK: !$omp masked taskloop simd
- !$omp masked taskloop simd
+ !$omp masked taskloop simd
do i=1,10
j = j + 1
end do
@@ -41,11 +41,11 @@ subroutine test_masked_taskloop
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Filter -> Scalar -> Integer -> Expr = '2_4'
!PARSE-TREE-NEXT: LiteralConstant -> IntLiteralConstant = '2'
!CHECK: !$omp masked taskloop filter(2_4)
- !$omp masked taskloop filter(2)
+ !$omp masked taskloop filter(2)
do i=1,10
j = j + 1
end do
- !$omp end masked taskloop
+ !$omp end masked taskloop
end subroutine
subroutine test_parallel_masked
@@ -70,7 +70,7 @@ subroutine test_parallel_masked_taskloop_simd
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = parallel masked taskloop simd
!CHECK: !$omp parallel masked taskloop simd
- !$omp parallel masked taskloop simd
+ !$omp parallel masked taskloop simd
do i=1,10
j = j + 1
end do
@@ -84,9 +84,9 @@ subroutine test_parallel_masked_taskloop
!PARSE-TREE-NEXT: OmpClauseList -> OmpClause -> Filter -> Scalar -> Integer -> Expr = '2_4'
!PARSE-TREE-NEXT: LiteralConstant -> IntLiteralConstant = '2'
!CHECK: !$omp parallel masked taskloop filter(2_4)
- !$omp parallel masked taskloop filter(2)
+ !$omp parallel masked taskloop filter(2)
do i=1,10
j = j + 1
end do
- !$omp end parallel masked taskloop
+ !$omp end parallel masked taskloop
end subroutine
diff --git a/flang/test/Parser/OpenMP/master-unparse.f90 b/flang/test/Parser/OpenMP/master-unparse.f90
index 36935d4fe1a7d..bee6c9662d247 100644
--- a/flang/test/Parser/OpenMP/master-unparse.f90
+++ b/flang/test/Parser/OpenMP/master-unparse.f90
@@ -9,7 +9,7 @@ subroutine test_master()
!PARSE-TREE: OmpBeginDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = master
!CHECK: !$omp master
- !$omp master
+ !$omp master
c = c + 1
!$omp end master
end subroutine
@@ -19,7 +19,7 @@ subroutine test_master_taskloop_simd()
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = master taskloop simd
!CHECK: !$omp master taskloop simd
- !$omp master taskloop simd
+ !$omp master taskloop simd
do i=1,10
j = j + 1
end do
@@ -35,7 +35,7 @@ subroutine test_master_taskloop
do i=1,10
j = j + 1
end do
- !$omp end master taskloop
+ !$omp end master taskloop
end subroutine
subroutine test_parallel_master
@@ -53,7 +53,7 @@ subroutine test_parallel_master_taskloop_simd
!PARSE-TREE: OmpBeginLoopDirective
!PARSE-TREE-NEXT: OmpDirectiveName -> llvm::omp::Directive = parallel master taskloop simd
!CHECK: !$omp parallel master taskloop simd
- !$omp parallel master taskloop simd
+ !$omp parallel master taskloop simd
do i=1,10
j = j + 1
end do
@@ -69,5 +69,5 @@ subroutine test_parallel_master_taskloop
do i=1,10
j = j + 1
end do
- !$omp end parallel master taskloop
+ !$omp end parallel master taskloop
end subroutine
diff --git a/flang/test/Parser/acc-data-statement.f90 b/flang/test/Parser/acc-data-statement.f90
index 40c76b2561b24..c0b66d4a14337 100644
--- a/flang/test/Parser/acc-data-statement.f90
+++ b/flang/test/Parser/acc-data-statement.f90
@@ -39,7 +39,7 @@ program acc_data_test
print *, "After nested data"
!$acc end data
- ! Negative tests
+ ! Negative tests
! Basic data construct in program body
!$acc data copy(a, b) create(d) bogus()
!CHECK: acc-data-statement.f90:
@@ -67,7 +67,7 @@ program acc_data_test
!CHECK: acc-data-statement.f90:
!CHECK-SAME: error: expected OpenACC end block directive
!CHECK-NEXT: end if
- !CHECK-NEXT: ^
+ !CHECK-NEXT: ^
!CHECK-NEXT: in the context: OpenACC construct
!CHECK-NEXT: !$acc data copyout(a)
!CHECK-NEXT: ^
@@ -85,7 +85,7 @@ program acc_data_test
!CHECK: acc-data-statement.f90:
!CHECK-SAME: error: expected OpenACC end block directive
!CHECK-NEXT: end do
- !CHECK-NEXT: ^
+ !CHECK-NEXT: ^
!CHECK-NEXT: in the context: OpenACC construct
!CHECK-NEXT: !$acc data present(a)
!CHECK-NEXT: ^
@@ -137,7 +137,7 @@ program acc_data_test
contains
subroutine positive_process_array(x)
integer, intent(inout) :: x(:)
-
+
! Data construct in subroutine
!$acc data copy(x)
x = x + 1
@@ -148,17 +148,17 @@ subroutine positive_process_array(x)
function positive_compute_sum(x) result(total)
integer, intent(in) :: x(:)
integer :: total
-
+
! Data construct in function
!$acc data copyin(x) copy(total)
total = sum(x)
!$acc end data
print *, "Function finished"
end function
-
+
subroutine negative_process_array(x)
integer, intent(inout) :: x(:)
-
+
! Data construct in subroutine
!$acc data copy(x)
x = x + 1
@@ -188,7 +188,7 @@ function negative_compute_sum(x) result(total)
!CHECK: acc-data-statement.f90:
!CHECK-SAME: error: expected OpenACC end block directive
!CHECK-NEXT: end function
- !CHECK-NEXT: ^
+ !CHECK-NEXT: ^
!CHECK-NEXT: in the context: OpenACC construct
!CHECK-NEXT: !$acc data copyin(x) copy(total)
!CHECK-NEXT: ^
diff --git a/flang/test/Parser/assume-aligned.f90 b/flang/test/Parser/assume-aligned.f90
index c61c10d61d72f..3d2c358b335d6 100644
--- a/flang/test/Parser/assume-aligned.f90
+++ b/flang/test/Parser/assume-aligned.f90
@@ -8,13 +8,13 @@ SUBROUTINE aa(a, nn)
!DIR$ assume_aligned a:16
!CHECK: !DIR$ ASSUME_ALIGNED a:16
!DIR$ assume_aligned a (1):16
-!CHECK: !DIR$ ASSUME_ALIGNED a(1):16
+!CHECK: !DIR$ ASSUME_ALIGNED a(1):16
!DIR$ assume_aligned a(1):16
!CHECK: !DIR$ ASSUME_ALIGNED a(1):16
!DIR$ assume_aligned a(nn):16
-!CHECK: !DIR$ ASSUME_ALIGNED a(nn):16
+!CHECK: !DIR$ ASSUME_ALIGNED a(nn):16
!DIR$ assume_aligned a(44):16
-!CHECK: !DIR$ ASSUME_ALIGNED a(44):16
+!CHECK: !DIR$ ASSUME_ALIGNED a(44):16
DO i=1,nn
a(i)=a(i)+1.5
END DO
@@ -31,22 +31,22 @@ END SUBROUTINE bb
SUBROUTINE f(n)
IMPLICIT NONE
- TYPE node
+ TYPE node
REAL(KIND=8), POINTER :: a(:,:)
- END TYPE NODE
-
+ END TYPE NODE
+
TYPE(NODE), POINTER :: nodes
INTEGER :: i
INTEGER, INTENT(IN) :: n
- ALLOCATE(nodes)
+ ALLOCATE(nodes)
ALLOCATE(nodes%a(1000,1000))
- !DIR$ ASSUME_ALIGNED nodes%a(1,1) : 16
+ !DIR$ ASSUME_ALIGNED nodes%a(1,1) : 16
!CHECK: !DIR$ ASSUME_ALIGNED nodes%a(1,1):16
- DO i=1,n
- nodes%a(1,i) = nodes%a(1,i)+1
- END DO
+ DO i=1,n
+ nodes%a(1,i) = nodes%a(1,i)+1
+ END DO
END SUBROUTINE f
SUBROUTINE g(a, b)
diff --git a/flang/test/Parser/compiler-directives.f90 b/flang/test/Parser/compiler-directives.f90
index ce592692cfc67..77c6b45def9e8 100644
--- a/flang/test/Parser/compiler-directives.f90
+++ b/flang/test/Parser/compiler-directives.f90
@@ -68,7 +68,7 @@ subroutine unroll
do i=1,10
enddo
!dir$ nounroll
- ! CHECK: !DIR$ NOUNROLL
+ ! CHECK: !DIR$ NOUNROLL
do i=1,10
enddo
end subroutine
@@ -83,7 +83,7 @@ subroutine unroll_and_jam
do i=1,10
enddo
!dir$ nounroll_and_jam
- ! CHECK: !DIR$ NOUNROLL_AND_JAM
+ ! CHECK: !DIR$ NOUNROLL_AND_JAM
do i=1,10
enddo
end subroutine
@@ -97,16 +97,16 @@ subroutine no_vector
subroutine inline
integer :: a
- !dir$ forceinline
- ! CHECK: !DIR$ FORCEINLINE
+ !dir$ forceinline
+ ! CHECK: !DIR$ FORCEINLINE
a = f(2)
- !dir$ inline
- ! CHECK: !DIR$ INLINE
+ !dir$ inline
+ ! CHECK: !DIR$ INLINE
call g()
- !dir$ noinline
- ! CHECK: !DIR$ NOINLINE
+ !dir$ noinline
+ ! CHECK: !DIR$ NOINLINE
call g()
contains
diff --git a/flang/test/Preprocessing/compiler_defined_macros.F90 b/flang/test/Preprocessing/compiler_defined_macros.F90
index f5f955bbc750e..0b80fa22fcfdc 100644
--- a/flang/test/Preprocessing/compiler_defined_macros.F90
+++ b/flang/test/Preprocessing/compiler_defined_macros.F90
@@ -5,7 +5,7 @@
!CHECK: flang_patchlevel = {{[0-9]+$}}
!RUN: %flang -E %s | FileCheck --ignore-case %s
-
+
integer, parameter :: flang_major = __flang_major__
integer, parameter :: flang_minor = __flang_minor__
integer, parameter :: flang_patchlevel = __flang_patchlevel__
diff --git a/flang/test/Preprocessing/pp132.f90 b/flang/test/Preprocessing/pp132.f90
index a0fdf46e7066f..95b43b0091be0 100644
--- a/flang/test/Preprocessing/pp132.f90
+++ b/flang/test/Preprocessing/pp132.f90
@@ -18,6 +18,6 @@ subroutine foo
!$acc data copyin(super_very_long_name_for_the_variable, another_super_wordy_variable_to_test)
!$acc end data
-
+
!$OMP something something
end subroutine foo
diff --git a/flang/test/Semantics/Inputs/modfile73-a.f90 b/flang/test/Semantics/Inputs/modfile73-a.f90
index 45a93f6c1b097..ea247c98cdff8 100644
--- a/flang/test/Semantics/Inputs/modfile73-a.f90
+++ b/flang/test/Semantics/Inputs/modfile73-a.f90
@@ -1,197 +1,197 @@
MODULE modfile73a
PUBLIC re_alloc, defaults
-integersp
+integersp
integerselected_real_kind0
integer:: i8b = selected_int_kind(8)
interface
subroutine alloc_error_report_interf(str,code)
- end
+ end
subroutine alloc_memory_event_interf(bytes,name)
- end
+ end
end interface
-procedure()alloc_error_report
-procedure()alloc_memory_event
+procedure()alloc_error_report
+...
[truncated]
|
Only some fortran source files in flang/test/Parser/OpenMP have been modified. The remaining files will be cleaned up in subsequent commits.