PROGRAM sample
    IMPLICIT NONE
    CHARACTER(LEN=40) :: name
    CHARACTER(LEN=20) :: date
    PRINT *, 'Type name'
    READ *, name
    PRINT *, 'Type date'
    READ *, date
    PRINT *, trim(name) // ' was born on ' // date
END PROGRAM sample