Sign in
gnu
/
gcc
/
fe115e3147d7d8adf8c94451cc33c9b177293f29
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pointer_remapping_7.f90
blob: 39126bac4055cb5d02a1e425017e3b4efddd40e7 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
!
PR fortran
/
49624
!
integer
,
target
::
A
(
100
)
integer
,
pointer
::
P
(:,:)
p
(
10
,
1
:)
=>
A
!
{
dg
-
error
"Lower bound has to be present"
}
end