Sign in
qemu
/
meson
/
205f09e1b022a71a64eb48e22bb52f76e0da21ef
/
.
/
test cases
/
fortran
/
19 fortran_std
/
std95.f90
blob: 2837da86afb63bbe2ab0800ffda81dfe81abfcf4 [
file
] [
log
] [
blame
]
program main
implicit
none
integer
::
i
,
j
integer
,
parameter
::
N
=
3
real
::
A
(
N
,
N
)
A
=
0
forall
(
i
=
1
:
N
,
j
=
1
:
N
)
A
(
i
,
j
)
=
1
end
forall
end
program