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


1
2
3
4
5
6
7
8
9
10

# { dg-options "-fstropping=upper" }  #
BEGIN INT i = 12;
      LONG INT ii = LONG 12, LONG LONG INT iii = LONG LONG 12;
      SHORT INT s = SHORT 12, SHORT SHORT INT ss = SHORT SHORT 12;
      ASSERT (i > 10);
      ASSERT (ii GT LONG 10);
      ASSERT (iii > LONG LONG 10);
      ASSERT (s > SHORT 10);
      ASSERT (ss > SHORT SHORT 10)
END