gcc/testsuite/gm2/pimlib/logitech/run/pass/teststrings.mod


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

MODULE teststrings ;

IMPORT InOut,Strings;

VAR
   content : ARRAY[1..256] OF CHAR;
   position: CARDINAL;

(* the content is just random text.  *)

BEGIN
   content := "erreur: In program module « essai3 »: attempting to pass (1) parameters to procedure";
   InOut.WriteString(content);
   InOut.WriteLn;
   position := Strings.Pos ("IMPORT", content);
END teststrings .