From 113a53c14290fae0b8769675cc1dff8d0140c54f Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Sun, 27 Feb 2011 13:05:36 +0100 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 5 +++++ libgomp/ChangeLog | 5 +++++ .../testsuite/libgomp.fortran/task3.f90 | 4 ++-- 3 files changed, 12 insertions(+), 2 deletions(-) rename gcc/testsuite/gfortran.dg/gomp/task-1.f90 => libgomp/testsuite/libgomp.fortran/task3.f90 (94%) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8c5a37982c9..f1f0bc612b4 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-02-27 Jakub Jelinek + + PR fortran/47886 + * gfortran.dg/gomp/task-1.f90: Removed. + 2011-02-26 Jason Merrill * g++.dg/template/this-targ1.C: New. diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 33b4e2c9139..f7a598252a2 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,3 +1,8 @@ +2011-02-27 Jakub Jelinek + + PR fortran/47886 + * testsuite/libgomp.fortran/task3.f90: New test. + 2011-02-24 Tobias Burnus * 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 similarity index 94% rename from gcc/testsuite/gfortran.dg/gomp/task-1.f90 rename to libgomp/testsuite/libgomp.fortran/task3.f90 index 227902cbf5a..30ff9803ea2 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