unboundedarray.mod\pass\base-lang\gm2\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gm2/base-lang/pass/unboundedarray.mod

blob: 48f027efee1a65ba404a48905ca443268a9214ed (plain)

IMPLEMENTATION MODULE unboundedarray ;

PROCEDURE message (m: ARRAY OF CARDINAL) ;
BEGIN
   m[0] := 1
END message ;

END unboundedarray.