constarray.mod\fail\iso\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/iso/fail/constarray.mod

blob: 71f0804a099e91da84b304fa86d7807e78fb59d4 (plain)

MODULE constarray ;

TYPE
   VEC = ARRAY [0..2] OF REAL;

CONST
   VecConst = VEC {1.0, 2.0, 3.0};

BEGIN
   VecConst[1] := 1.0
END constarray.