diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2011-02-27 13:05:36 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2011-02-27 13:05:36 +0100 |
| commit | 113a53c14290fae0b8769675cc1dff8d0140c54f (patch) | |
| tree | 630f11e199c8239180ed1849a94feafb7c6ddc63 /libgomp | |
| parent | 6609216ea928a99d667df90d4fe976872bcd745a (diff) | |
| download | gcc-113a53c14290fae0b8769675cc1dff8d0140c54f.zip gcc-113a53c14290fae0b8769675cc1dff8d0140c54f.tar.gz gcc-113a53c14290fae0b8769675cc1dff8d0140c54f.tar.bz2 | |
re PR fortran/47886 (ICE: OpenMP !$omp task if(omp_get_num_threads() > 0))
PR fortran/47886
* gfortran.dg/gomp/task-1.f90: Removed.
* testsuite/libgomp.fortran/task3.f90: New test.
From-SVN: r170535
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/task3.f90 | 27 |
2 files changed, 32 insertions, 0 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 33b4e2c..f7a5982 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-27 Jakub Jelinek <jakub@redhat.com> + + PR fortran/47886 + * testsuite/libgomp.fortran/task3.f90: New test. + 2011-02-24 Tobias Burnus <burnus@net-b.de> * libgomp.texi (GOMP_STACKSIZE): Fix @ref to OMP_STACKSIZE. diff --git a/libgomp/testsuite/libgomp.fortran/task3.f90 b/libgomp/testsuite/libgomp.fortran/task3.f90 new file mode 100644 index 0000000..30ff980 --- /dev/null +++ b/libgomp/testsuite/libgomp.fortran/task3.f90 @@ -0,0 +1,27 @@ +! { dg-do run } +! { dg-options "-fopenmp" } +! +! PR fortran/47886 +! +! Test case contributed by Bill Long + +! derived from OpenMP test OMP3f/F03_2_7_1d.F90 +program F03_2_7_1d + use omp_lib + implicit none + integer, parameter :: NT = 4 + integer :: sum = 0 + + call omp_set_num_threads(NT); + + !$omp parallel + !$omp task if(omp_get_num_threads() > 0) + !$omp atomic + sum = sum + 1 + !$omp end task + !$omp end parallel + if (sum /= NT) then + print *, "FAIL - sum == ", sum, " (expected ", NT, ")" + call abort + end if +end program F03_2_7_1d |