Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pointer_assign_5.f90
blob: 1994ffebb7ef47f97e02e9554f828ca1e0445f87 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
37580
!
See
also the pointer_remapping_
*
tests
.
program test
implicit
none
real
,
pointer
::
ptr1
(:),
ptr2
(:)
ptr1
(
1
)
=>
ptr2
!
{
dg
-
error
"Expected bounds specification"
}
end
program test