program main

CHARACTER (len = 24) :: name
CHARACTER (len = 6) :: surname
			surname = 'ODUNFA'
			name = 'Prof.'//' '//'VICTOR'//' '//surname

   print*, name
end program main