gcc/testsuite/algol68/execute/gen-union-1.a68


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

# { dg-options "-fstropping=upper" }  #
BEGIN UNION(INT,REAL,[]INT,CHAR) datux;
      ASSERT (CASE datux
              IN (INT): 10,
                 (REAL): 20,
                 (CHAR): 30,
                 ([]INT): 40
              ESAC = 0);
      []INT ja = (1,2,3);
      datux := ja;
      ASSERT (CASE datux
              IN (INT): 10,
                 (REAL): 20,
                 (CHAR): 30,
                 ([]INT): 40
              ESAC = 40)
END