gdb/testsuite/gdb.chill/pr-8136.ch

   1 -- NOTE: This test is used for pr-3134.exp as well as pr-8136.
   2 func: MODULE
   3
   4 <> USE_SEIZE_FILE "func1.grt" <>
   5 SEIZE ALL;
   6
   7 NEWMODE m_struct = STRUCT (i LONG, str CHARS(50) VARYING);
   8 DCL insarr ARRAY (1:10) INT;
   9
  10 DCL setrange m_setrange := e5;
  11
  12 DCL ps m_ps := [ e3, e7:e9 ];
  13 DCL range_ps m_rangeps := [ 2, 3, 4, 28 ];
  14
  15 p1: PROC (first INT IN, last INT IN, s m_struct IN);
  16
  17   DCL foo LONG := 3;
  18
  19   startall: PROC ()
  20     DO FOR i := first to last;
  21       insarr(i) := i;
  22     OD;
  23     DO FOR i := first TO last;
  24       WRITETEXT (stdout, "insarr(%C) := %C%/", i, insarr(i));
  25     OD;
  26   END startall;
  27
  28   startall ();
  29
  30 END p1;
  31
  32 p1 (LOWER (insarr), UPPER (insarr), [ 10, "This is a string." ]);
  33
  34 END func;