gcc/testsuite/gfortran.dg/goacc/default-1.f95


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

! OpenACC default clause: valid syntax.

subroutine f1
  implicit none

  !$acc kernels default (none)
  !$acc end kernels
  !$acc parallel default (none)
  !$acc end parallel

  !$acc kernels default (present)
  !$acc end kernels
  !$acc parallel default (present)
  !$acc end parallel
end subroutine f1