gcc/testsuite/gm2/pim/pass/varient.mod

   1 (* Copyright (C) 2005, 2006 Free Software Foundation, Inc. *)
   2 (* This file is part of GNU Modula-2.
   3
   4 GNU Modula-2 is free software; you can redistribute it and/or modify it under
   5 the terms of the GNU General Public License as published by the Free
   6 Software Foundation; either version 2, or (at your option) any later
   7 version.
   8
   9 GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 for more details.
  13
  14 You should have received a copy of the GNU General Public License along
  15 with gm2; see the file COPYING.  If not, write to the Free Software
  16 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *)
  17 MODULE varient;
  18
  19 FROM libc IMPORT exit, printf ;
  20
  21 TYPE
  22   DataType = (card, other);
  23   RcdType = RECORD
  24               CASE Data : DataType OF
  25                 card  :  j : CARDINAL;
  26                          k : CARDINAL |
  27                 other : st : CHAR ;
  28               END
  29             END ;
  30
  31 VAR
  32   R1 : RcdType;
  33   r  : INTEGER ;
  34 BEGIN
  35    WITH R1 DO
  36       Data := card;
  37       j := 123;
  38       k := 456;
  39       r := printf('j = %d and k = %d\n', j, k)
  40    END ;
  41    IF (R1.j#123) OR (R1.k#456)
  42    THEN
  43       exit(1)
  44    END
  45 END varient.