blob: 0402e6f6bac56be1439e1677383661865b8e8405 (
plain)
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
32
33
34
35
|
MODULE arrayconst3 ;
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
r: REAL ;
BEGIN
r := value[1] ;
END foo ;
PROCEDURE bar ;
CONST
len = 2 ;
TYPE
array = ARRAY [0..len -1] OF REAL ;
CONST
value = array {5.0, 6.0} ;
VAR
r: REAL ;
BEGIN
r := value[1] ;
END bar ;
BEGIN
foo ;
bar
END arrayconst3.
|
