Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
goacc
/
pr94120-1.f90
blob: 8d1fc16a5ff25b72e72246b6c089ef33695f2ec2 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
94120
!
implicit
none
integer
::
i
contains
subroutine f
()
!
$acc declare copy
(
i
)
!
{
dg
-
error
"Variable 'i' shall be declared in the same scoping unit as !.ACC DECLARE"
}
end
end