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

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