gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95

! { dg-additional-options "-Wuninitialized" }

subroutine acc_parallel
  implicit none
  integer :: i, j, k

  !$acc parallel num_gangs(i) ! { dg-warning "is used uninitialized in this function" }
  !$acc end parallel

  !$acc parallel num_workers(j) ! { dg-warning "is used uninitialized in this function" }
  !$acc end parallel

  !$acc parallel vector_length(k) ! { dg-warning "is used uninitialized in this function" }
  !$acc end parallel
end subroutine acc_parallel

subroutine acc_kernels
  implicit none
  integer :: i, j, k

  !$acc kernels num_gangs(i) ! { dg-warning "is used uninitialized in this function" }
  !$acc end kernels

  !$acc kernels num_workers(j) ! { dg-warning "is used uninitialized in this function" }
  !$acc end kernels

  !$acc kernels vector_length(k) ! { dg-warning "is used uninitialized in this function" }
  !$acc end kernels
end subroutine acc_kernels