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

 MODULE testfloat ;

 CONST
    foo = FLOAT (c) ;

 VAR
    c: CARDINAL ;
 BEGIN

 END testfloat.
	MODULE testfloat ;

	CONST
	foo = FLOAT (c) ;

	VAR
	c: CARDINAL ;
	BEGIN

	END testfloat.