testlength.mod\fail\const\iso\gm2\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gm2/iso/const/fail/testlength.mod

blob: c3f126b0079d5150882c2ebef9406b09036b8225 (plain)

MODULE testlength ;

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

BEGIN
   bar ("hello")
END testlength.