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