36 lines
586 B
FortranFixed
36 lines
586 B
FortranFixed
|
! RUN: bbc -ffixed-form -fopenacc -emit-hlfir %s -o - | FileCheck %s
|
||
|
|
|
||
|
|
subroutine sub1()
|
||
|
|
real :: a(10, 10)
|
||
|
|
integer :: i, j
|
||
|
|
|
||
|
|
a = 0.0
|
||
|
|
|
||
|
|
c$acc parallel
|
||
|
|
do j = 1, 10
|
||
|
|
do i = 1, 10
|
||
|
|
a(i,j) = i*j
|
||
|
|
end do
|
||
|
|
end do
|
||
|
|
c$acc end parallel
|
||
|
|
|
||
|
|
*$acc parallel
|
||
|
|
do j = 1, 10
|
||
|
|
do i = 1, 10
|
||
|
|
a(i,j) = i*j
|
||
|
|
end do
|
||
|
|
end do
|
||
|
|
*$acc end parallel
|
||
|
|
|
||
|
|
!$acc parallel
|
||
|
|
do j = 1, 10
|
||
|
|
do i = 1, 10
|
||
|
|
a(i,j) = i*j
|
||
|
|
end do
|
||
|
|
end do
|
||
|
|
!$acc end parallel
|
||
|
|
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
! CHECK-COUNT-3: acc.parallel
|