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

   1 x: module                        -- line 1
   2   p:proc (t char (20) varying);  --      2
   3           writetext(stdout, t);  --      3
   4   end p;                         --      4
   5                                  --      5
   6   p("Jason Dark.%/");            --      6
   7   p("Hello World.%/");           --      7
   8 end x;