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


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

# { dg-options "-fstropping=upper" }  #
# An union generated from SKIP has -1 as overhead.  #
BEGIN MODE JSONVAL = UNION (JSONOBJ,JSONSTR),
           JSONSTR = STRING,
           JSONOBJ = STRUCT (REF JSONFLD fields),
           JSONFLD = STRUCT (JSONVAL value, REF JSONFLD next);

      JSONFLD fields;
      ASSERT (CASE value OF fields
              IN (JSONSTR s): "string",
                 (JSONOBJ o): "object"
              OUT "fuckyou"
              ESAC = "fuckyou")
END