PROGRAM sample
    IMPLICIT NONE
    CHARACTER(LEN=40) :: name
    CHARACTER(LEN=20) :: date
    PRINT *, 'Type name'
    READ *, name
    PRINT *, 'Type date'
    READ *, date
    PRINT *, trim(date) // ' is the birthday of ' // name
END PROGRAM sample