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

+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.

libgomp/ChangeLog

+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.

gcc/testsuite/gfortran.dg/gomp/task-1.f90 → libgomp/testsuite/libgomp.fortran/task3.f90

-! { 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