36 lines · plain
1! RUN: bbc -ffixed-form -fopenacc -emit-hlfir %s -o - | FileCheck %s2 3 subroutine sub1()4 real :: a(10, 10)5 integer :: i, j6 7 a = 0.08 9c$acc parallel10 do j = 1, 1011 do i = 1, 1012 a(i,j) = i*j13 end do14 end do15c$acc end parallel16 17*$acc parallel18 do j = 1, 1019 do i = 1, 1020 a(i,j) = i*j21 end do22 end do23*$acc end parallel24 25!$acc parallel26 do j = 1, 1027 do i = 1, 1028 a(i,j) = i*j29 end do30 end do31!$acc end parallel32 33 end subroutine34 35! CHECK-COUNT-3: acc.parallel36