1! OpenACC parallelism dimensions clauses: num_gangs, num_workers,
2! vector_length.
3
4! { dg-additional-sources parallel-dims-aux.c }
5! { dg-do run }
6! { dg-prune-output "command-line option '-fintrinsic-modules-path=.*' is valid for Fortran but not for C" }
7
8! See also '../libgomp.oacc-c-c++-common/parallel-dims.c'.
9
10module acc_routines
11  implicit none (type, external)
12
13  interface
14    integer function acc_gang() bind(C)
15      !$acc routine seq
16    end function acc_gang
17
18    integer function acc_worker() bind(C)
19      !$acc routine seq
20    end function acc_worker
21
22    integer function acc_vector() bind(C)
23      !$acc routine seq
24    end function acc_vector
25  end interface
26end module acc_routines
27
28program main
29  use iso_c_binding
30  use openacc
31  use acc_routines
32  implicit none (type, external)
33
34  integer :: gangs_min, gangs_max, workers_min, workers_max, vectors_min, vectors_max
35  integer :: vectors_actual
36  integer :: i, j, k
37
38  call acc_init (acc_device_default)
39
40  ! OpenACC parallel construct.
41
42  !TODO
43
44
45  ! OpenACC kernels construct.
46
47  !TODO
48
49
50  ! OpenACC serial construct.
51
52  ! GR, WS, VS.
53
54  gangs_min = huge(gangs_min) ! INT_MAX
55  workers_min = huge(workers_min) ! INT_MAX
56  vectors_min = huge(vectors_min) ! INT_MAX
57  gangs_max = -huge(gangs_max) - 1  ! INT_MIN
58  workers_max = -huge(gangs_max) - 1 ! INT_MIN
59  vectors_max = -huge(gangs_max) - 1 ! INT_MIN
60  !$acc serial &
61  !$acc   reduction (min: gangs_min, workers_min, vectors_min) reduction (max: gangs_max, workers_max, vectors_max) ! { dg-warning "using vector_length \\(32\\), ignoring 1" "" { target openacc_nvidia_accel_selected } }
62  do i = 100, -99, -1
63     gangs_min = acc_gang ();
64     gangs_max = acc_gang ();
65     workers_min = acc_worker ();
66     workers_max = acc_worker ();
67     vectors_min = acc_vector ();
68     vectors_max = acc_vector ();
69  end do
70  !$acc end serial
71  if (gangs_min /= 0 .or. gangs_max /= 1 - 1 &
72      .or. workers_min /= 0 .or. workers_max /= 1 - 1 &
73      .or. vectors_min /= 0 .or. vectors_max /= 1 - 1) &
74    stop 1
75
76  ! Composition of GP, WP, VP.
77
78  vectors_actual = 1 ! Implicit 'vector_length (1)' clause.
79  gangs_min = huge(gangs_min) ! INT_MAX
80  workers_min = huge(workers_min) ! INT_MAX
81  vectors_min = huge(vectors_min) ! INT_MAX
82  gangs_max = -huge(gangs_max) - 1  ! INT_MIN
83  workers_max = -huge(gangs_max) - 1 ! INT_MIN
84  vectors_max = -huge(gangs_max) - 1 ! INT_MIN
85  !$acc serial copy (vectors_actual) &
86  !$acc   copy (gangs_min, gangs_max, workers_min, workers_max, vectors_min, vectors_max) ! { dg-warning "using vector_length \\(32\\), ignoring 1" "" { target openacc_nvidia_accel_selected } }
87  if (acc_on_device (acc_device_nvidia)) then
88     ! The GCC nvptx back end enforces vector_length (32).
89     ! It's unclear if that's actually permissible here;
90     ! <https://github.com/OpenACC/openacc-spec/issues/238> "OpenACC 'serial'
91     ! construct might not actually be serial".
92   vectors_actual = 32
93  end if
94  !$acc loop gang reduction (min: gangs_min, workers_min, vectors_min) reduction (max: gangs_max, workers_max, vectors_max)
95  do i = 100, -99, -1
96     !$acc loop worker reduction (min: gangs_min, workers_min, vectors_min) reduction (max: gangs_max, workers_max, vectors_max)
97     do j = 100, -99, -1
98        !$acc loop vector reduction (min: gangs_min, workers_min, vectors_min) reduction (max: gangs_max, workers_max, vectors_max)
99        do k = 100 * vectors_actual, -99 * vectors_actual, -1
100           gangs_min = acc_gang ();
101           gangs_max = acc_gang ();
102           workers_min = acc_worker ();
103           workers_max = acc_worker ();
104           vectors_min = acc_vector ();
105           vectors_max = acc_vector ();
106        end do
107     end do
108  end do
109  !$acc end serial
110  if (acc_get_device_type () .eq. acc_device_nvidia) then
111     if (vectors_actual /= 32) stop 2
112  else
113     if (vectors_actual /= 1) stop 3
114  end if
115  if (gangs_min /= 0 .or. gangs_max /= 1 - 1 &
116      .or. workers_min /= 0 .or. workers_max /= 1 - 1 &
117      .or. vectors_min /= 0 .or. vectors_max /= vectors_actual - 1) &
118    stop 4
119
120end program main
121