[llvm-bugs] [Bug 50200] New: [Flang] [OpenMP] PARALLEL SECTIONS are unparsed incorrectly

[via llvm-bugs]

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: unassignedbugs at nondot.org
          Reporter: sscalpone at nvidia.com
                CC: David.Truby at arm.com, jperier at nvidia.com,
                    kirankumartp at gmail.com, llvm-bugs at lists.llvm.org,
                    sscalpone at 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.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.llvm.org/pipermail/llvm-bugs/attachments/20210502/119e860f/attachment.html>