PROGRAM osoite
  IMPLICIT NONE
  CHARACTER(LEN=30) :: etunimi
  CHARACTER(LEN=30) :: sukunimi
  CHARACTER(LEN=30) :: kone = '@csc.fi'

  WRITE (*, '(A)', ADVANCE='NO') 'Etunimi:'
  READ (*,*) etunimi
  WRITE (*, '(A)', ADVANCE='NO') 'Sukunimi:'
  READ (*,*) sukunimi
  WRITE (*,'(5A)') 'Osoite:' // TRIM(etunimi) // "." &
        // sukunimi(1:LEN_TRIM(sukunimi)) // kone
END PROGRAM osoite