From fa5034ff0d19c1d9a80bde961c3f6a3941d01b64 Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Sun, 27 Feb 2011 10:10:35 -0800 Subject: [PATCH] Remove duplicated code. 2011-02-27 H.J. Lu * testsuite/libgomp.fortran/task3.f90: Remove duplicated code. From-SVN: r170545 --- libgomp/ChangeLog | 6 ++++- libgomp/testsuite/libgomp.fortran/task3.f90 | 27 --------------------- 2 files changed, 5 insertions(+), 28 deletions(-) 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 +2011-02-27 H.J. Lu + + * testsuite/libgomp.fortran/task3.f90: Remove duplicated code. + +2011-02-27 Tobias Burnus Backport from mainline 2011-02-27 Jakub Jelinek 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 -- 2.47.2