flang/test/Lower/OpenACC/acc-fixed-form.f

   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
   9 c$acc parallel
  10       do j = 1, 10
  11         do i = 1, 10
  12           a(i,j) = i*j
  13         end do
  14       end do
  15 c$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