gcc/testsuite/gm2/iso/const/fail/testlength.mod

MODULE testlength ;

PROCEDURE bar (a: ARRAY OF CHAR) ;
CONST
   foo = LENGTH (a) ;
BEGIN
END bar ;

BEGIN
   bar ("hello")
END testlength.