15 lines
129 B
Text
15 lines
129 B
Text
y: MODULE
|
|
|
|
<> USE_SEIZE_FILE "pr-5646-grt.grt" <>
|
|
SEIZE a_ps;
|
|
|
|
p: PROC ();
|
|
|
|
DCL xx a_ps;
|
|
|
|
xx := [a, b];
|
|
END p;
|
|
|
|
p();
|
|
|
|
END y;
|