gcc/testsuite/algol68/execute/bin-1.a68

# { dg-options "-fstropping=upper" }  #
# BIN for SIZETY INTs #
BEGIN ASSERT (BIN 255 = 16rff);
      ASSERT (BIN LONG 255 = LONG 16rff);
      ASSERT (BIN LONG LONG 255 = LONG LONG 16rff)
END