lengthsubexpr.mod\fail\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/fail/lengthsubexpr.mod

blob: 9aabe7a3c549257bc6704816f3a3b678ae5b17a9 (plain)

MODULE lengthsubexpr ;


VAR
   c: CARDINAL ;
   a: CHAR ;
BEGIN
   a := 'a' ;
   c := LENGTH ("Hello world") + a
END lengthsubexpr.