aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.chill/string.ch
blob: 3503c462eae9b3dce7a5c7eaa275e834c8567730 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
ss: MODULE

/* These declarations are from Cygnus PR chill/9078. */
  SYNMODE m_char20 = CHARS(20) VARYING;

  DCL foo m_char20 INIT := "Moser ";
  DCL bar m_char20 INIT := "Wilfried";

  DCL foo1 CHARS(5) INIT := "12345";
  DCL bar1 CHARS(5) INIT := "abcde";

/* This is Cynus PR chill/5696. */

DCL s20 CHARS(20) VARYING;

DCL s10 CHARS(10);


s20 := "Moser Wilfried";
S10 := "1234567890";

WRITETEXT (stdout, "s20 := ""%C"", s10 := ""%C""%/", s20, s10);

END ss;