Skip to content
Merged
Show file tree
Hide file tree
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions flang/lib/Parser/openmp-parsers.cpp
Original file line number Diff line number Diff line change
Expand Up @@ -157,8 +157,8 @@ static TypeDeclarationStmt makeIterSpecDecl(std::list<ObjectName> &&names) {

TYPE_PARSER(construct<OmpAlignment>(scalarIntExpr))

TYPE_PARSER(construct<OmpAlignModifier>( //
"ALIGN" >> parenthesized(scalarIntExpr)))
Copy link
Contributor

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

The idea here (and below) is that the actual source word starts a line. This makes is easier to visually break it down.

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Yeah, I kinda realized that when I saw it in the review. I'll undo that.

TYPE_PARSER(
construct<OmpAlignModifier>("ALIGN"_tok >> parenthesized(scalarIntExpr)))

TYPE_PARSER(construct<OmpAllocatorComplexModifier>(
"ALLOCATOR" >> parenthesized(scalarIntExpr)))
Expand Down
15 changes: 15 additions & 0 deletions flang/test/Lower/OpenMP/Todo/allocate-clause-align.f90
Original file line number Diff line number Diff line change
@@ -0,0 +1,15 @@
! REQUIRES: openmp_runtime
! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s

! CHECK: not yet implemented: OmpAllocateClause ALIGN modifier
program p
use omp_lib
integer :: x
integer :: a
integer :: i
!$omp parallel private(x) allocate(align(4): x)
do i=1,10
a = a + i
end do
!$omp end parallel
end program p
16 changes: 16 additions & 0 deletions flang/test/Lower/OpenMP/Todo/allocate-clause-allocator.f90
Original file line number Diff line number Diff line change
@@ -0,0 +1,16 @@
! REQUIRES: openmp_runtime
! RUN: %not_todo_cmd %flang_fc1 -emit-llvm -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s

! CHECK: not yet implemented: Unhandled clause allocate in omp.parallel
! CHECK: LLVM Translation failed for operation: omp.parallel
program p
use omp_lib
integer :: x
integer :: a
integer :: i
!$omp parallel private(x) allocate(allocator(omp_default_mem_alloc): x)
do i=1,10
a = a + i
end do
!$omp end parallel
end program p
Loading