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

  WRITE (*,*) 'Osoite:' // TRIM(etunimi) // '.' &
        // TRIM(sukunimi) // kone
END PROGRAM koe