gdb/testsuite/gdb.chill/string.ch

   1 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;