blob: e249ded56082320dadcd4492de7588ca02506a18 (
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
36
37
|
MODULE another ;
TYPE
MYSHORTREAL = REAL;
TYPE
PROCA = PROCEDURE (VAR ARRAY OF REAL);
PROCB = PROCEDURE (VAR ARRAY OF MYSHORTREAL);
VAR
pa: PROCA; pb: PROCB;
x: ARRAY [0..1] OF REAL;
y: ARRAY [0..1] OF MYSHORTREAL;
PROCEDURE ProcA(VAR z: ARRAY OF REAL);
BEGIN
END ProcA ;
PROCEDURE ProcB(VAR z: ARRAY OF MYSHORTREAL);
BEGIN
END ProcB ;
BEGIN
x := y;
pa := ProcA;
pb := ProcB;
pa(x);
pa(y);
pb(x);
pb(y);
pa := ProcB;
pb := ProcA;
pa(x);
pa(y);
pb(x);
pb(y)
END another.
|