00100	begin "fortr"
00200	fortran procedure date(reference integer foo);
00300	integer array baz[0:1];
00400	date(baz[0]);
00500	end "fortr"