aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/overab-1.a68
blob: 8edfa1e5fab03ec4478ec39a071e32d399420e88 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
# { dg-options "-fstropping=upper" }  #
BEGIN (INT i := 11; i OVERAB 2; ASSERT (i = 5));
      (INT i := 11; i %:= 2; ASSERT (i = 5));
      (SHORT INT i := SHORT 11; i OVERAB SHORT 2; ASSERT (i = SHORT 5));
      (SHORT INT i := SHORT 11; i %:= SHORT 2; ASSERT (i = SHORT 5));
      (SHORT SHORT INT i := SHORT SHORT 11; i OVERAB SHORT SHORT 2; ASSERT (i = SHORT SHORT 5));
      (SHORT SHORT INT i := SHORT SHORT 11; i %:= SHORT SHORT 2; ASSERT (i = SHORT SHORT 5));
      (LONG INT i := LONG 11; i OVERAB LONG 2; ASSERT (i = LONG 5));
      (LONG INT i := LONG 11; i %:= LONG 2; ASSERT (i = LONG 5));
      (LONG LONG INT i := LONG LONG 11; i OVERAB LONG LONG 2; ASSERT (i = LONG LONG 5));
      (LONG LONG INT i := LONG LONG 11; i %:= LONG LONG 2; ASSERT (i = LONG LONG 5))
END