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 203ae921e4a30097dd72332fa7491d08ea661c55..4499f130fd8807d9c241c5d78f0db7e3b1a75d3c 100644 (file)
--- 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 5300b9058b7bb2811aebd15214c7003218dd16ea..30ff9803ea27ea66bee48dbc66f23506c66f3909 100644 (file)
--- 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