[llvm-bugs] [Bug 48308] New: Crash in OpenMP semantic check with do while in parallel

[via llvm-bugs]

https://bugs.llvm.org/show_bug.cgi?id=48308

            Bug ID: 48308
           Summary: Crash in OpenMP semantic check with do while in
                    parallel
           Product: flang
           Version: trunk
          Hardware: PC
                OS: All
            Status: NEW
          Severity: normal
          Priority: P
         Component: Frontend
          Assignee: unassignedbugs at nondot.org
          Reporter: kiranchandramohan at gmail.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

The following code crashes with OpenMP semantics check.


subroutine s(x,i)
  real :: x(:)
  integer :: i
  !$omp parallel firstprivate(i)
    do while (i>0)
      x(i) = i 
      i = i - 1
    end do
  !$omp end parallel
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/20201126/6208348f/attachment.html>