uninit-use-device-clause.f95\goacc\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

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

blob: f661f51fe3f288d2375960ef8a512f2fb1bd0877 (plain)

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

subroutine test
  integer, pointer :: p
  ! { dg-note {'p' was declared here} {} { target *-*-* } .-1 }

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