OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

libgomp.fortran/allocate-1.f90: Fix minor cleanup 

libgomp/ChangeLog:
	* testsuite/libgomp.fortran/allocate-1.f90: Remove spurious
	STOP of previous commit.
This commit is contained in:
Tobias Burnus 2022-02-04 17:31:21 +01:00
parent 696ca2f6cf
commit f62156eab7
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
libgomp/testsuite/libgomp.fortran/allocate-1.f90
View 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)