gcc/testsuite/algol68/execute/widening-2.a68

# { dg-options "-fstropping=upper" }  #
BEGIN LONG INT i = LONG 10;
      LONG REAL foo = i;
      ASSERT (foo > LONG 9.9);
      ASSERT (foo < LONG 10.1)
END