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 | |
| 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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/task3.f90 (renamed from gcc/testsuite/gfortran.dg/gomp/task-1.f90) | 4 |
3 files changed, 12 insertions, 2 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/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/gcc/testsuite/gfortran.dg/gomp/task-1.f90 b/libgomp/testsuite/libgomp.fortran/task3.f90 index 227902c..30ff980 100644 --- a/gcc/testsuite/gfortran.dg/gomp/task-1.f90 +++ b/libgomp/testsuite/libgomp.fortran/task3.f90 @@ -1,4 +1,4 @@ -! { dg-do compile } +! { dg-do run } ! { dg-options "-fopenmp" } ! ! PR fortran/47886 @@ -22,6 +22,6 @@ program F03_2_7_1d !$omp end parallel if (sum /= NT) then print *, "FAIL - sum == ", sum, " (expected ", NT, ")" - stop 1; + call abort end if end program F03_2_7_1d |