Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
goacc
/
derived-types-3.f90
blob: 9619e2fe1f3ae1510ecf2bab03fddaa004e99b92 [
file
] [
log
] [
blame
]
module
bar
type
::
type1
integer
::
a
(
5
)
integer
::
b
(
5
)
end
type
end
module
subroutine foo
use
bar
type
(
type1
)
::
var
!
$acc enter data copyin
(
var
%
a
)
copyin
(
var
%
a
)
!
{
dg
-
error
".var\.a. appears more than once in map clauses"
}
end
subroutine