OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [gdb-5.0/] [gdb/] [testsuite/] [gdb.chill/] [pr-8742.ch] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
hugo : module
2
 
3
  synmode a = range(1:10);
4
  synmode p = powerset a;
5
 
6
  synmode s = set (sa, sb, sc);
7
  synmode s_ps = powerset s;
8
 
9
  x: proc (ps p);
10
    dcl i a;
11
    do for i in ps;
12
      writetext (stdout, "%C ", i);
13
    od;
14
    writetext(stdout, "%/");
15
  end x;
16
 
17
  y : proc (ps s_ps);
18
    dcl i s;
19
    do for i in ps;
20
      writetext (stdout, "%C ", i);
21
    od;
22
    writetext(stdout, "%/");
23
  end y;
24
 
25
  dummy: proc ();
26
  end dummy;
27
 
28
  x([1,2,3]);
29
  y([sa, sc]);
30
  dummy ();
31
 
32
end hugo;

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.