Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr61775.f90
blob: 48ef3cbcbc3d7178e2feacb4152d8e547aebce78 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR fortran
/
61775.f90
program pi
real
,
allocatable
::
x
(:)
integer
::
n
n
=
10000
x
=
[
(
i
,
i
=
1
,
n
)
]
if
(
x
(
n
)
/=
10000
)
stop
1
end
program pi