gcc/testsuite/algol68/execute/abs-real-1.a68

begin word real w = - word 10;
      assert (ABS w = word 10.0)
end