gcc/testsuite/algol68/execute/minus-int-1.a68


1
2
3
4
5
6
7
8
9
10

# { dg-options "-fstropping=upper" }  #
BEGIN INT i = 10;
      LONG INT ii = LONG 10, LONG LONG INT iii = LONG LONG 10;
      SHORT INT ss = SHORT 10, SHORT SHORT INT sss = SHORT SHORT 10;
      ASSERT (i - 2 = 8);
      ASSERT (ii - LONG 2 = LONG 8);
      ASSERT (iii - LONG LONG 2 = LONG LONG 8);
      ASSERT (ss - SHORT 2 = SHORT 8);
      ASSERT (sss - SHORT SHORT 2 = SHORT SHORT 8)
END