Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
do_pointer_1.f90
blob: 548177acc0a071d40878c8eac2563b92905ddac9 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR
30869
-
pointer loop variables were wrongly rejected
.
program main
integer
,
pointer
::
i
allocate
(
i
)
do
i
=
1
,
10
end
do
deallocate
(
i
)
end
program main