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

{ dg-modules "module4" }

{ The widening coercion "jumps" inside the controlled xclause.  }

begin real realten = access Module_4 (ten);
      skip
end