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

Subversion Repositories or1k

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 106 markom
ss: MODULE
2
 
3
/* These declarations are from Cygnus PR chill/9078. */
4
  SYNMODE m_char20 = CHARS(20) VARYING;
5
 
6
  DCL foo m_char20 INIT := "Moser ";
7
  DCL bar m_char20 INIT := "Wilfried";
8
 
9
  DCL foo1 CHARS(5) INIT := "12345";
10
  DCL bar1 CHARS(5) INIT := "abcde";
11
 
12
/* This is Cynus PR chill/5696. */
13
 
14
DCL s20 CHARS(20) VARYING;
15
 
16
DCL s10 CHARS(10);
17
 
18
 
19
s20 := "Moser Wilfried";
20
S10 := "1234567890";
21
 
22
WRITETEXT (stdout, "s20 := ""%C"", s10 := ""%C""%/", s20, s10);
23
 
24
END ss;

powered by: WebSVN 2.1.0

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