gcc/testsuite/algol68/execute/ge-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 GE LONG 10);
      ASSERT (iii >= LONG LONG 12);
      ASSERT (s >= SHORT 12);
      ASSERT (ss >= SHORT SHORT 10)
END