Sign in
gnu
/
gcc
/
refs/heads/devel/c++-contracts
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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