program main use iso_fortran_env implicit none integer(int32)::A,B character(10)::S read(*,*) A,B read*,S print"(i0,' ',A)",A+B,trim(S) end program main