recordformat Commfm(integer i, j, k)

externalroutine PASS2(record(Commfm)name Interface)

   ! If the procedure below is removed, the Interface_k = 23 statement translates OK!
   
   routine Initialise
   end

!  This fails to translate - the field is not found. *BUT* ONLY IF icode2ast IS RUN WITHOUT "-d"!

   Interface_k = 23;
   
end

endoffile