1 -- Copyright 1992, 1995 Free Software Foundation, Inc.
3 -- This program is free software; you can redistribute it and/or modify
4 -- it under the terms of the GNU General Public License as published by
5 -- the Free Software Foundation; either version 2 of the License, or
6 -- (at your option) any later version.
8 -- This program is distributed in the hope that it will be useful,
9 -- but WITHOUT ANY WARRANTY; without even the implied warranty of
10 -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 -- GNU General Public License for more details.
13 -- You should have received a copy of the GNU General Public License
14 -- along with this program; if not, write to the Free Software
15 -- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17 -- Please email any bugs, comments, and/or additions to this file to:
18 -- bug-gdb@prep.ai.mit.edu
21 -- test program 2 (refer to tests2.exp)
27 syn pat1 ulong = H'aaaaaaaa;
28 syn pat2 ulong = H'55555555;
31 newmode bytem = struct (
35 newmode ubytem = struct (
39 newmode intm = struct (
43 newmode uintm = struct (
47 newmode longm = struct (
51 newmode ulongm = struct (
55 newmode boolm = struct (
59 newmode charm1 = struct (
63 newmode charm2 = struct (
67 newmode charm3 = struct (
71 newmode charm4 = struct (
75 newmode bitm1 = struct (
79 newmode bitm2 = struct (
83 newmode setm1 = struct (
85 m set (a, b, c, d, e, f, g, h),
87 newmode nset1 = struct (
89 m set (na = 2147483648, nb = 1024, nc = 4294967295),
91 newmode rm1 = struct (
93 m range (lower(byte):upper(byte)),
95 newmode rm2 = struct (
97 m range (lower(int):upper(int)),
99 newmode rm3 = struct (
101 m range (lower(long):upper(long)),
103 newmode pm1 = struct (
105 m powerset set (pa, pb, pc, pd, pe, pf, pg, ph),
107 newmode pm2 = struct (
109 m powerset int (1:32),
111 -- this should be rejected by the gnuchill compiler !
112 newmode pm3 = struct (
114 -- m powerset long (lower(long): upper(long)),
116 newmode refm1 = struct (
120 newmode refm2 = struct (
124 newmode prm1 = struct (
128 newmode tim1 = struct (
132 newmode tim2 = struct (
136 newmode rem1 = struct (
140 newmode rem2 = struct (
144 newmode arrm1 = struct (
146 m array(1:3, 1:2) int,
148 newmode strum1 = struct (
150 m struct (a, b int, ch char(4)),
154 -- dummyfunction for breakpoints
159 dcl b1 bytem init := [pat1, -128, pat2];
160 dcl ub1 ubytem init := [pat1, 0, pat2];
161 dcl i1 intm init := [pat1, -32768, pat2];
162 dcl ui1 uintm init := [pat1, 0, pat2];
163 dcl l1 longm init := [pat1, -2147483648, pat2];
164 dcl ul1 ulongm init := [pat1, 0, pat2];
165 dcl bo1 boolm init := [pat1, true, pat2];
166 dcl c1 charm1 init := [pat1, "1234", pat2];
167 dcl c2 charm2 init := [pat1, "1234567", pat2];
168 dcl c3 charm3 init := [pat1, "12345678", pat2];
169 dcl c4 charm4 init := [pat1, C'00', pat2];
170 dcl bi1 bitm1 init := [pat1, B'01011010', pat2];
171 dcl bi2 bitm2 init := [pat1, B'1010110101', pat2];
172 dcl se1 setm1 init := [pat1, a, pat2];
173 dcl nse1 nset1 init := [pat1, na, pat2];
174 dcl r1 rm1 init := [pat1, -128, pat2];
175 dcl r2 rm2 init := [pat1, -32768, pat2];
176 dcl r3 rm3 init := [pat1, -2147483648, pat2];
177 dcl p1 pm1 init := [pat1, [pa], pat2];
178 dcl p2 pm2 init := [pat1, [1], pat2];
179 -- dcl p3 pm3 init := [pat1, [-1], pat2]; -- FIXME: bug in gnuchill
180 dcl ref1 refm1 init := [pat1, null, pat2];
181 dcl ref2 refm2 init := [pat1, null, pat2];
183 dcl ti1 tim1 init := [pat1, 0, pat2];
184 dcl ti2 tim2 init := [pat1, 0, pat2];
185 dcl re1 rem1 init := [pat1, 0.0, pat2];
186 dcl re2 rem2 init := [pat1, 0.0, pat2];
187 dcl arrl1 arrm1 init:=[pat1, [(1:3): [0,0]], pat2];
188 dcl strul1 strum1 init := [pat1, [.a: 0, .b: 0, .ch: "0000"], pat2];
190 pr1 := [pat1, dummyfunc, pat2];