gcc/testsuite/algol68/execute/le-word-bits-1.a68

begin word bits address = word 16rfff0ffff;
      assert (address <= word 16rffffffff);
      assert (address LE word 16rfff0ffff);
      skip
end