933ab0e61c
libgomp/ * testsuite/libgomp.oacc-fortran/declare-1.f90: Restore "dg-do run" directive. * testsuite/libgomp.oacc-fortran/declare-2.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-3.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-4.f90: Likewise. * testsuite/libgomp.oacc-fortran/declare-5.f90: Likewise. From-SVN: r253808
17 lines
243 B
Fortran
17 lines
243 B
Fortran
! { dg-do run }
|
|
|
|
module globalvars
|
|
implicit none
|
|
integer a
|
|
!$acc declare create (a)
|
|
end module globalvars
|
|
|
|
program test
|
|
use globalvars
|
|
use openacc
|
|
implicit none
|
|
|
|
if (acc_is_present (a) .neqv. .true.) call abort
|
|
|
|
end program test
|