main module structadd
// add structures to test diagnostic

    declare
	A is 
	    structure
		f : array [1..10] of integer
	    endstructure

	Joe : A
	Sam : A
	Joe_Sam : A
	jim : integer
    enddeclare

    Joe_sam := Joe + Sam
    Joe_sam := Joe + jim
    Joe_sam *= + jim
    
endmodule