Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-4.4.4
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
c_loc_tests_10.f03
blob: 867ba18cc6cb35f6c17910b8fe156868bb979708 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
subroutine aaa
(
in
)
use
iso_c_binding
implicit
none
integer
(
KIND
=
C_int
),
DIMENSION
(:),
TARGET
::
in
type
(
c_ptr
)
::
cptr
cptr
=
c_loc
(
in
)
!
{
dg
-
error
"not C interoperable"
}
end
subroutine aaa