aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/plusab-1.a68
blob: 8de4e97b046ad728655309e9050c679807b12b75 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# { dg-options "-fstropping=upper" }  #
BEGIN BEGIN INT i := 10;
            i +:= 2;
            ASSERT (i = 12);
            i PLUSAB 2;
            ASSERT (i = 14)
      END;

      BEGIN SHORT INT i := SHORT 1000;
            i +:= SHORT 100;
            ASSERT (i = SHORT 1100);
            i PLUSAB SHORT 100;
            ASSERT (i = SHORT 1200)
      END;
      BEGIN SHORT SHORT INT i := SHORT SHORT 10000;
            i +:= SHORT SHORT 1000;
            ASSERT (i = SHORT SHORT 11000);
            i PLUSAB SHORT SHORT 1000;
            ASSERT (i = SHORT SHORT 12000)
      END;

      BEGIN LONG INT i := LONG 1000;
            i +:= LONG 100;
            ASSERT (i = LONG 1100);
            i PLUSAB LONG 100;
            ASSERT (i = LONG 1200)
      END;
      BEGIN LONG LONG INT i := LONG LONG 10000;
            i +:= LONG LONG 1000;
            ASSERT (i = LONG LONG 11000);
            i PLUSAB LONG LONG 1000;
            ASSERT (i = LONG LONG 12000)
      END
END