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: 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
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._______________________________________________
llvm-bugs mailing list
llvm-bugs@lists.llvm.org
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
