gdb/testsuite/gdb.chill/pr-5646.ch

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;