blob: a35a2e95f2fe0b0d4536e3277ccde35031413a5b (
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
|
#LIB
PROCEDURE Check()
CALL Inner()
ENDPROCEDURE
PROCEDURE Inner()
DECLARE A : ARRAY[1:1] OF INTEGER
OUTPUT A[2]
ENDPROCEDURE
PROCEDURE Contract(A : ARRAY[1:2] OF INTEGER)
ENDPROCEDURE
PROCEDURE Bounds()
DECLARE L : INTEGER
L <- 3
DECLARE A : ARRAY[1:L] OF INTEGER
CALL Contract(A)
ENDPROCEDURE
PROCEDURE FileError()
CLOSEFILE "unopened"
ENDPROCEDURE
CLASS Broken
PROCEDURE NEW()
DECLARE X : INTEGER
X <- 1 DIV 0
ENDPROCEDURE
ENDCLASS
|
