gcc/testsuite/algol68/execute/modules/program-16.a68

{ dg-modules module16 }

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