blob: cff3a31db8e2571085813cd4cf2717f7842a52b2 (
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
|
MODULE badproctype ;
TYPE
PROCA = PROCEDURE (VAR ARRAY OF REAL);
PROCB = PROCEDURE (VAR ARRAY OF SHORTREAL);
VAR
pa: PROCA; pb: PROCB;
x: ARRAY [0..1] OF REAL;
y: ARRAY [0..1] OF SHORTREAL;
PROCEDURE ProcA(VAR z: ARRAY OF REAL);
BEGIN
END ProcA ;
PROCEDURE ProcB(VAR z: ARRAY OF SHORTREAL);
BEGIN
END ProcB ;
BEGIN
x := y;
pa := ProcA;
pb := ProcB;
pa(x);
pa(y);
pb(x);
pb(y);
pa := ProcB; (* proctype does not match. *)
pb := ProcA; (* proctype does not match. *)
pa(x);
pa(y);
pb(x);
pb(y)
END badproctype.
|