xref: /llvm-project/flang/test/Lower/OpenACC/acc-fixed-form.f (revision d82b52139a418a4c6eb6d95e553c25506988b169) 
1! RUN: bbc -ffixed-form -fopenacc -emit-hlfir %s -o - | FileCheck %s
2
3      subroutine sub1()
4      real :: a(10, 10)
5      integer :: i, j
6
7      a = 0.0
8
9c$acc parallel
10      do j = 1, 10
11        do i = 1, 10
12          a(i,j) = i*j
13        end do
14      end do
15c$acc end parallel
16
17*$acc parallel
18      do j = 1, 10
19        do i = 1, 10
20          a(i,j) = i*j
21        end do
22      end do
23*$acc end parallel
24
25!$acc parallel
26      do j = 1, 10
27        do i = 1, 10
28          a(i,j) = i*j
29        end do
30      end do
31!$acc end parallel
32
33      end subroutine
34
35! CHECK-COUNT-3: acc.parallel
36