00001 program intface 00002 external c_intface 00003 integer i 00004 00005 call c_intface(i) 00006 00007 stop 00008 end