blob: 4374cb3bef55ad014771ec7345acd59c0b98dbea [file] [log] [blame]
MODULE testarrayunbounded4 ;
PROCEDURE foo (a: ARRAY OF CHAR) ;
BEGIN
END foo ;
VAR
b: CHAR ;
BEGIN
foo (b)
END testarrayunbounded4.