PROGRAM test_primitive

  INTEGER :: i

  !$claw acc parallel
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw acc end parallel

  !$claw omp do
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw omp end do

END PROGRAM test_primitive

PROGRAM test_primitive
  USE openacc

  INTEGER :: i

  !$claw acc parallel
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw acc end parallel

  !$claw omp do
  DO i = 1, 10
    PRINT*,i
  END DO
  !$claw omp end do

END PROGRAM test_primitive

clementval/claw-compiler,clementval/claw-compiler