diff options
| author | Ethan Luis McDonough <ethanluismcdonough@gmail.com> | 2023-05-05 14:50:14 -0500 |
|---|---|---|
| committer | Ethan Luis McDonough <ethanluismcdonough@gmail.com> | 2023-05-05 14:50:14 -0500 |
| commit | 936d40cdb5c82ca74358b260dc69f7150209a81a (patch) | |
| tree | f74c0970c0693511be7431143744105b9aba414b /flang/test/Parser | |
| parent | afd3478f37c8734ec6a0f028f772645a108d14b2 (diff) | |
| download | llvm-936d40cdb5c82ca74358b260dc69f7150209a81a.zip llvm-936d40cdb5c82ca74358b260dc69f7150209a81a.tar.gz llvm-936d40cdb5c82ca74358b260dc69f7150209a81a.tar.bz2 | |
Revert "[flang] OpenMP allocate directive parse tree fix"
This reverts commit 5faf45a3d24e603cbc8fe4eb45da386653dae5e5.
Once again arcanist stripped the co-author metadata. I'm going to add it to the revision description and try one last time.
Diffstat (limited to 'flang/test/Parser')
| -rw-r--r-- | flang/test/Parser/OpenMP/allocate-tree-spec-part.f90 | 47 | ||||
| -rw-r--r-- | flang/test/Parser/OpenMP/allocate-tree.f90 | 43 |
2 files changed, 0 insertions, 90 deletions
diff --git a/flang/test/Parser/OpenMP/allocate-tree-spec-part.f90 b/flang/test/Parser/OpenMP/allocate-tree-spec-part.f90 deleted file mode 100644 index 45a693d..0000000 --- a/flang/test/Parser/OpenMP/allocate-tree-spec-part.f90 +++ /dev/null @@ -1,47 +0,0 @@ -! RUN: %flang_fc1 -fopenmp -fdebug-dump-parse-tree %s | FileCheck %s -! Ensures associated declarative OMP allocations in the specification -! part are kept there - -program allocate_tree - use omp_lib - integer, allocatable :: w, xarray(:), zarray(:, :) - integer :: f -!$omp allocate(f) allocator(omp_default_mem_alloc) - f = 2 -!$omp allocate(w) allocator(omp_const_mem_alloc) -!$omp allocate(xarray) allocator(omp_large_cap_mem_alloc) -!$omp allocate(zarray) allocator(omp_default_mem_alloc) -!$omp allocate - allocate (w, xarray(4), zarray(5, f)) -end program allocate_tree - -!CHECK: | | DeclarationConstruct -> SpecificationConstruct -> OpenMPDeclarativeConstruct -> OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | Verbatim -!CHECK-NEXT: | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'f' -!CHECK-NEXT: | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | ExecutionPart -> Block -!CHECK-NEXT: | | ExecutionPartConstruct -> ExecutableConstruct -> ActionStmt -> AssignmentStmt = 'f=2_4' -!CHECK-NEXT: | | | Variable = 'f' -!CHECK-NEXT: | | | | Designator -> DataRef -> Name = 'f' -!CHECK-NEXT: | | | Expr = '2_4' -!CHECK-NEXT: | | | | LiteralConstant -> IntLiteralConstant = '2' -!CHECK-NEXT: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPExecutableAllocate -!CHECK-NEXT: | | | Verbatim -!CHECK-NEXT: | | | OmpClauseList -> -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'w' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'xarray' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'zarray' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | AllocateStmt diff --git a/flang/test/Parser/OpenMP/allocate-tree.f90 b/flang/test/Parser/OpenMP/allocate-tree.f90 deleted file mode 100644 index f04e431..0000000 --- a/flang/test/Parser/OpenMP/allocate-tree.f90 +++ /dev/null @@ -1,43 +0,0 @@ -! RUN: %flang_fc1 -fopenmp -fdebug-dump-parse-tree %s | FileCheck %s -! RUN: %flang_fc1 -fopenmp -fdebug-unparse %s | FileCheck %s --check-prefix="UNPARSE" -! Ensures associated declarative OMP allocations are nested in their -! corresponding executable allocate directive - -program allocate_tree - use omp_lib - integer, allocatable :: w, xarray(:), zarray(:, :) - integer :: z, t - t = 2 - z = 3 -!$omp allocate(w) allocator(omp_const_mem_alloc) -!$omp allocate(xarray) allocator(omp_large_cap_mem_alloc) -!$omp allocate(zarray) allocator(omp_default_mem_alloc) -!$omp allocate - allocate(w, xarray(4), zarray(t, z)) -end program allocate_tree - -!CHECK: | | ExecutionPartConstruct -> ExecutableConstruct -> OpenMPConstruct -> OpenMPExecutableAllocate -!CHECK-NEXT: | | | Verbatim -!CHECK-NEXT: | | | OmpClauseList -> -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'w' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'xarray' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | OpenMPDeclarativeAllocate -!CHECK-NEXT: | | | | Verbatim -!CHECK-NEXT: | | | | OmpObjectList -> OmpObject -> Designator -> DataRef -> Name = 'zarray' -!CHECK-NEXT: | | | | OmpClauseList -> OmpClause -> Allocator -> Scalar -> Integer -> Expr = -!CHECK-NEXT: | | | | | Designator -> DataRef -> Name = -!CHECK-NEXT: | | | AllocateStmt - -!UNPARSE: !$OMP ALLOCATE (w) ALLOCATOR(1_4) -!UNPARSE-NEXT: !$OMP ALLOCATE (xarray) ALLOCATOR(1_4) -!UNPARSE-NEXT: !$OMP ALLOCATE (zarray) ALLOCATOR(1_4) -!UNPARSE-NEXT: !$OMP ALLOCATE -!UNPARSE-NEXT: ALLOCATE(w, xarray(4_4), zarray(t,z)) |