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 /gcc | |
| 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 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/task-1.f90 | 27 |
2 files changed, 5 insertions, 27 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8c5a379..f1f0bc6 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-27 Jakub Jelinek <jakub@redhat.com> + + PR fortran/47886 + * gfortran.dg/gomp/task-1.f90: Removed. + 2011-02-26 Jason Merrill <jason@redhat.com> * g++.dg/template/this-targ1.C: New. diff --git a/gcc/testsuite/gfortran.dg/gomp/task-1.f90 b/gcc/testsuite/gfortran.dg/gomp/task-1.f90 deleted file mode 100644 index 227902c..0000000 --- a/gcc/testsuite/gfortran.dg/gomp/task-1.f90 +++ /dev/null @@ -1,27 +0,0 @@ -! { dg-do compile } -! { 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, ")" - stop 1; - end if -end program F03_2_7_1d |