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


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

MODULE arrayconst ;


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


PROCEDURE bar ;
TYPE
   array = ARRAY [0..3] OF REAL ;
CONST
   value = array {5.0, 6.0, 7.0, 8.0} ;
VAR
   r: REAL ;
BEGIN
   r := value[1] ;
END bar ;


BEGIN
   foo ;
   bar
END arrayconst.