Sign in
android
/
toolchain
/
gcc
/
donut
/
.
/
gcc-4.4.0
/
gcc
/
testsuite
/
gfortran.dg
/
pointer_assign_5.f90
blob: 03562caf5902d6363a1cf21e20ad2c2050b856e1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
37580
!
program test
implicit
none
real
,
pointer
::
ptr1
(:),
ptr2
(:)
ptr1
(
1
)
=>
ptr2
!
{
dg
-
error
"Expected bounds specification"
}
ptr1
(
1
:)
=>
ptr2
!
{
dg
-
error
"not yet implemented in gfortran"
}
end
program test