gcc/testsuite/gm2/iso/pass/constvec.mod

MODULE constvec ;

TYPE
   Vec5 = ARRAY [1..5] OF LONGREAL;

CONST
   con1 = Vec5 { 1.0,
                 2.0,
                 3.0,
                 4.0,
                 5.0 } ;

CONST
   con2 = con1 ;

VAR
   x: LONGREAL;
BEGIN
   x := con1[3] ;
   x := con2[3]
END constvec.