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

MODULE arrayconst4 ;


PROCEDURE foo ;
CONST
   len = 4 ;
TYPE
   array = ARRAY [0..len -1] OF REAL ;
CONST
   value = array {1.0, 2.0, 3.0, 4.0} ;
VAR
   c: array ;
BEGIN
   c := value
END foo ;


PROCEDURE bar ;
CONST
   len = 2 ;
TYPE
   array = ARRAY [0..len -1] OF REAL ;
CONST
   value = array {5.0, 6.0} ;
VAR
   c: array ;
BEGIN
   c := value
END bar ;


BEGIN
   foo ;
   bar
END arrayconst4.