aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/multab-1.a68
blob: 355129baf6585626eb2783b7d08e431201e94a5d (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
# { dg-options "-fstropping=upper" }  #
BEGIN INT i := 2;
      i *:= 2;
      ASSERT (i = 4);
      i *:= 2;
      ASSERT (i = 8);

      SHORT INT s := SHORT 2;
      s *:= SHORT 2;
      ASSERT (s = SHORT 4);
      s *:= SHORT 3;
      ASSERT (s = SHORT 12);

      SHORT SHORT INT ss := SHORT SHORT 2;
      ss *:= SHORT SHORT 2;
      ASSERT (ss = SHORT SHORT 4);
      ss *:= SHORT SHORT 3;
      ASSERT (ss = SHORT SHORT 12);

      REF LONG INT ii = HEAP LONG INT := LONG 2;
      ii *:= LONG 2;
      ASSERT (ii = LONG 4);
      ii *:= LONG 2;
      ASSERT (ii = LONG 8);

      LONG LONG INT iii := LONG LONG 2;
      iii *:= LONG LONG 2;
      ASSERT (iii = LONG LONG 4);
      iii *:= LONG LONG 2;
      ASSERT (iii = LONG LONG 8)
END