blob: 6507ddaf33e190f9627487464831f92bff88f1cd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! { dg-do compile }
!
! PR fortran/64726
!
subroutine oacc1()
implicit none
integer :: i
integer :: a
!$acc parallel loop reduction(+:a)
do i = 1,5
enddo
!$acc end parallel loop
!$acc kernels loop collapse(2)
do i = 2,6
do a = 3,5
enddo
enddo
!$acc end kernels loop
end subroutine oacc1
|