aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/sign-int-1.a68
blob: 3c6d317e0634ab468c1616d10630aa014e45c31a (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
# { dg-options "-fstropping=upper" }  #
BEGIN INT zero = 0;
      SHORT INT short zero = SHORT 0;
      SHORT SHORT INT short short zero = SHORT SHORT 0;
      LONG INT long zero = LONG 0;
      LONG LONG INT long long zero = LONG LONG 0;
      INT ten = 10;
      SHORT INT short ten = SHORT 10;
      SHORT SHORT INT short short ten = SHORT SHORT 10;
      LONG INT long ten = LONG 10;
      LONG LONG INT long long ten = LONG LONG 10;
      ASSERT (SIGN zero = 0);
      ASSERT (SIGN short zero = 0);
      ASSERT (SIGN short short zero = 0);
      ASSERT (SIGN long zero = 0);
      ASSERT (SIGN long long zero = 0);
      ASSERT (SIGN ten = 1);
      ASSERT (SIGN short ten = 1);
      ASSERT (SIGN short short ten = 1);
      ASSERT (SIGN long ten = 1);
      ASSERT (SIGN long long ten = 1);
      ASSERT (SIGN -ten = -1);
      ASSERT (SIGN -short ten = -1);
      ASSERT (SIGN -short short ten = -1);
      ASSERT (SIGN -long ten = -1);
      ASSERT (SIGN -long long ten = -1)
END