Fortran: ref translation working