gcc/testsuite/gm2/pimlib/run/pass/testwrite.mod - gcc.git - Git at Google

 MODULE testwrite ;

 IMPORT ARRAYOFCHAR ;
 FROM FIO IMPORT StdOut ;

 BEGIN
    ARRAYOFCHAR.Write (StdOut, "hello world") ; ARRAYOFCHAR.WriteLn (StdOut)
 END testwrite.
	MODULE testwrite ;

	IMPORT ARRAYOFCHAR ;
	FROM FIO IMPORT StdOut ;

	BEGIN
	ARRAYOFCHAR.Write (StdOut, "hello world") ; ARRAYOFCHAR.WriteLn (StdOut)
	END testwrite.