program main use iso_fortran_env implicit none character(15)::S real(real64)::A,B integer(int32)::i read"(A)",S i=index(S,"/") read(S(1:i-1),*)A read(S(i+1:len_trim(S)),*)B print"(f0.6)",A/B end program