aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/conformity-clause-1.a68
blob: d34b7cfeabf5f2564bbd9f6a215fae06ea850d78 (plain)
1
2
3
4
5
6
7
8
9
10
# { dg-options "-fstropping=upper" }  #
BEGIN MODE DATUM = UNION(INT,REAL,CHAR);
      DATUM datum := 10;
      INT i = CASE datum
              IN (REAL): 2,
                 (INT i): i + 1,
                 (CHAR): 3
              ESAC;
      ASSERT (i = 11)
END