aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/conformity-clause-7.a68
blob: 18122a3dd70c851fd24276d890430ac7d8d86c79 (plain)
1
2
3
4
5
6
7
# { dg-options "-fstropping=upper" }  #
BEGIN UNION (CHAR,BOOL,REAL) cbra = 3.14, UNION (INT,REAL) ira = -10;
      IF (cbra | (CHAR): FALSE, (BOOL b): b
          |: ira | (INT i): i > 0, (REAL r): r > 0)
      THEN ASSERT (FALSE)
      FI
END