]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
libgomp.fortran/allocate-1.f90: Fix minor cleanup
authorTobias Burnus <tobias@codesourcery.com>
Fri, 4 Feb 2022 16:31:21 +0000 (17:31 +0100)
committerTobias Burnus <tobias@codesourcery.com>
Fri, 4 Feb 2022 16:31:21 +0000 (17:31 +0100)
libgomp/ChangeLog:
* testsuite/libgomp.fortran/allocate-1.f90: Remove spurious
STOP of previous commit.

libgomp/testsuite/libgomp.fortran/allocate-1.f90

index 062278f9908dfd0fe84ceef6dc5170409b1e1e5b..0a31d35d5ac19eaafe710a309ba6c2d100b687de 100644 (file)
@@ -74,8 +74,6 @@ subroutine foo (x, p, q, h, fl)
   if (x /= 42) then
     stop 1
   end if
-
-  !!$omp barrier
   v(1) = 7
   if ( (and(fl, 2) /= 0) .and.          &
        ((is_64bit_aligned(x) == 0) .or. &
@@ -97,7 +95,6 @@ subroutine foo (x, p, q, h, fl)
     stop 4
   end if
   !$omp end parallel
-stop
   !$omp teams
   !$omp parallel private (y) firstprivate (x, w) allocate (h: x, y, w)