# { dg-options "-fstropping=upper -std=algol68" }  #
BEGIN ASSERT (BIN - SHORT SHORT 2 = SHORT SHORT 2r0)
END