gcc/testsuite/gm2/switches/auto-init/fail/uninitptr.mod - gcc.git - Git at Google

 MODULE uninitptr ;

 VAR
    p: POINTER TO CHAR ;
 BEGIN
    p^ := 'a'
 END uninitptr.
	MODULE uninitptr ;

	VAR
	p: POINTER TO CHAR ;
	BEGIN
	p^ := 'a'
	END uninitptr.