[thirdparty/binutils-gdb.git] / gdb / testsuite / gdb.chill / string.ch

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;
Commit	Line	Data
6cec39dc PB	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. */
34410e95 PB	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;