Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
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