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