Sign in
llvm
/
llvm-archive
/
276bde03595d52e26812d2712817bc876da8ee7b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
arrayio.f90
blob: 1eec0bb59ce395e5af0cdfee872be3c61fce1c2e [
file
] [
log
] [
blame
]
!
Program
to test array IO
.
Should
print
the numbers
1
-
20
in
order
program arrayio
implicit
none
integer
,
dimension
(
5
,
4
)
::
a
integer i
,
j
do
j
=
1
,
4
a
(:,
j
)
=
(
/ (i + (j - 1) * 5, i=1,5) /
)
end
do
write
(*)
a
end
program