2e5efa6760
PR middle-end/84955 gcc/ * lto-streamer-out.c (output_function): Fix CFG loop state before streaming out. * omp-expand.c (expand_oacc_for): Handle calls to internal functions like regular functions. libgomp/ * testsuite/libgomp.oacc-c-c++-common/pr84955.c: New test. * testsuite/libgomp.oacc-fortran/pr84955.f90: New test. Co-Authored-By: Richard Biener <rguenther@suse.de> From-SVN: r259346
21 lines
312 B
Fortran
21 lines
312 B
Fortran
! { dg-do compile }
|
|
|
|
subroutine s
|
|
integer :: i, j
|
|
!$acc parallel loop tile(2,3)
|
|
do i = 1, 10
|
|
do j = 1, 10
|
|
do
|
|
end do
|
|
end do
|
|
end do
|
|
!$acc end parallel loop
|
|
|
|
!$acc parallel loop
|
|
do i = 1, 10
|
|
do
|
|
end do
|
|
end do
|
|
!$acc end parallel loop
|
|
end subroutine s
|