program-16.a68\modules\execute\algol68\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/algol68/execute/modules/program-16.a68

blob: dd6ddb6b9413629ed50203538257fdfeec4b4634 (plain)

{ dg-modules module16 }

access Module_16
begin assert (counter = 0);
      counter := 20;
      access Module_16 (assert (counter = 20));
      counter := 666
end