gcc/testsuite/algol68/execute/uniting-2.a68


1
2
3
4
5
6
7
8
9
10
11

# { dg-options "-fstropping=upper" }  #
BEGIN UNION(INT,REAL,CHAR) datum := "X";
      UNION(INT,REAL,[]INT,CHAR) datux;
      datux := datum;
      ASSERT (CASE datux
              IN (INT): 10,
                 (REAL): 20,
                 (CHAR c): 30
              ESAC = 30);
      SKIP
END