[llvm-bugs] [Bug 50201] New: [Flang] [OpenMP] Variables in common blocks may not be inheriting data sharing attributes

[via llvm-bugs]

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

            Bug ID: 50201
           Summary: [Flang] [OpenMP] Variables in common blocks may not be
                    inheriting data sharing attributes
           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

The variable 'a' ought to inherit threadprivate from the common block.

% cat t.f90
integer(4) :: a
common /c/ a
!$OMP THREADPRIVATE(/c/)
!$OMP PARALLEL DEFAULT(none)
    a  = omp_get_thread_num()
!$OMP END PARALLEL
end

% flang -c -fopenmp t.f90
./t.f90:5:5: error: The DEFAULT(NONE) clause requires that 'a' must be listed
in a data-sharing attribute clause
      a  = omp_get_thread_num()
      ^

-- 
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/fb14e0ef/attachment.html>