gcc/testsuite/gm2/iso/pass/subassign.mod - gcc.git - Git at Google

 MODULE subassign ;

 VAR
    card : CARDINAL ;
    month: [1..12] ;
 BEGIN
    month := card
 END subassign.
	MODULE subassign ;

	VAR
	card : CARDINAL ;
	month: [1..12] ;
	BEGIN
	month := card
	END subassign.