Test Case:
! derived from OpenMP test omp3f/NF03_2_9_2_2a.f90
! REFERENCES : OpenMP 3.0, p. 83, line 30
program NF03_2_9_2_2a
implicit none
integer, save :: threadprivate_var
!$omp threadprivate(threadprivate_var)
!$omp parallel
!$omp task untied
threadprivate_var = 1
!$omp end task
!$omp end parallel
print *, "FAIL - Negative test should not compile"
end program NF03_2_9_2_2a
> gfortran -fopenmp test.f90
> ./a.out
FAIL - Negative test should not compile
>
Comments from OpenMP testers:
This test case is derived from OpenMP test omp3f/NF03_2_9_2_2a.f90 .
The negative test checks the following restriction:
The OpenMP API Version 3.0 (May 2008) states the following on p. 83 line 30:
" * A program in which an untied task accesses threadprivate storage
is non-conforming."
--
Summary: OpenMP - untied task accesses threadprivate - non-
conforming but no msg
Product: gcc
Version: 4.4.3
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: longb at cray dot com
GCC build triplet: x86_64-suse-linux
GCC host triplet: x86_64-suse-linux
GCC target triplet: x86_64-suse-linux
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44085
