gcc/testsuite/gm2/errors/fail/testaddress.mod - gcc.git - Git at Google

 MODULE testaddress ;

 FROM SYSTEM IMPORT ADDRESS ;

 VAR
    a: ADDRESS ;
    c: CARDINAL ;
 BEGIN
    c := a + 'z'
 END testaddress.
	MODULE testaddress ;

	FROM SYSTEM IMPORT ADDRESS ;

	VAR
	a: ADDRESS ;
	c: CARDINAL ;
	BEGIN
	c := a + 'z'
	END testaddress.