gcc/testsuite/gm2/iso/fail/badconst.mod - gcc.git - Git at Google

 MODULE badconst ;

 CONST
    foo = 1 ;
 BEGIN
    IF Foo = 1
    THEN
    END
 END badconst.
	MODULE badconst ;

	CONST
	foo = 1 ;
	BEGIN
	IF Foo = 1
	THEN
	END
	END badconst.