gcc/testsuite/gfortran.dg/goacc/uninit-use-device-clause.f95


1
2
3
4
5
6
7
8
9
10

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

subroutine test
  integer, pointer :: p

  !$acc host_data use_device(p) ! { dg-warning "is used uninitialized in this function" }
  !$acc end host_data
end subroutine test