Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
gm2
/
base-lang
/
pass
/
unboundedarray.mod
blob: 48f027efee1a65ba404a48905ca443268a9214ed [
file
] [
log
] [
blame
]
IMPLEMENTATION MODULE unboundedarray
;
PROCEDURE message
(
m
:
ARRAY OF CARDINAL
)
;
BEGIN
m
[
0
]
:=
1
END
message
;
END
unboundedarray
.