From: H.J. Lu <hjl@gcc.gnu.org>
Date: Sun, 27 Feb 2011 18:10:35 +0000 (-0800)
Subject: Remove duplicated code.
X-Git-Tag: releases/gcc-4.4.6~104
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fa5034ff0d19c1d9a80bde961c3f6a3941d01b64;p=thirdparty%2Fgcc.git

Remove duplicated code.

2011-02-27  H.J. Lu  <hongjiu.lu@intel.com>

	* testsuite/libgomp.fortran/task3.f90: Remove duplicated code.

From-SVN: r170545
---

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 203ae921e4a3..4499f130fd88 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,4 +1,8 @@
-2011-01-27  Tobias Burnus  <burnus@net-b.de>
+2011-02-27  H.J. Lu  <hongjiu.lu@intel.com>
+
+	* testsuite/libgomp.fortran/task3.f90: Remove duplicated code.
+
+2011-02-27  Tobias Burnus  <burnus@net-b.de>
 
 	Backport from mainline
 	2011-02-27  Jakub Jelinek  <jakub@redhat.com>
diff --git a/libgomp/testsuite/libgomp.fortran/task3.f90 b/libgomp/testsuite/libgomp.fortran/task3.f90
index 5300b9058b7b..30ff9803ea27 100644
--- a/libgomp/testsuite/libgomp.fortran/task3.f90
+++ b/libgomp/testsuite/libgomp.fortran/task3.f90
@@ -25,30 +25,3 @@ program F03_2_7_1d
       call abort
    end if
 end program F03_2_7_1d
-! { 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