https://bugs.llvm.org/show_bug.cgi?id=50200
Bug ID: 50200
Summary: [Flang] [OpenMP] PARALLEL SECTIONS are unparsed
incorrectly
Product: flang
Version: trunk
Hardware: PC
OS: All
Status: NEW
Severity: enhancement
Priority: P
Component: Frontend
Assignee: unassignedb...@nondot.org
Reporter: sscalp...@nvidia.com
CC: david.tr...@arm.com, jper...@nvidia.com,
kirankuma...@gmail.com, llvm-bugs@lists.llvm.org,
sscalp...@nvidia.com
See the extra $OMP SECTION in the unparsed output.
% cat b.f90
SUBROUTINE sect1 (x)
INTEGER x(1_4)
!$OMP PARALLEL SECTIONS
DO i=1_4,1_4
x(int(i,kind=8))=0_4
END DO
!$OMP END PARALLEL SECTIONS
END SUBROUTINE
% flang -fopenmp -funparse b.f90 > c.f90
% diff b.f90 c.f90
3a4
> !$OMP SECTION
% cat c.f90
SUBROUTINE sect1 (x)
INTEGER x(1_4)
!$OMP PARALLEL SECTIONS
!$OMP SECTION
DO i=1_4,1_4
x(int(i,kind=8))=0_4
END DO
!$OMP END PARALLEL SECTIONS
END SUBROUTINE
--
You are receiving this mail because:
You are on the CC list for the bug._______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
