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: [email protected]
Reporter: [email protected]
CC: [email protected], [email protected],
[email protected], [email protected],
[email protected]
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
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
