gcc/testsuite/algol68/execute/conformity-clause-2.a68


1
2
3
4
5
6
7
8
9
10
11

# { dg-options "-fstropping=upper" }  #
BEGIN MODE DATUM = UNION(INT,REAL,CHAR);
      DATUM datum := "X";
      INT i = CASE datum
              IN (REAL): 2,
                 (INT val): val + 1
              OUT INT x = 100;
                  x + 10
              ESAC;
      ASSERT (i = 110)
END