implicit none

 character(16) :: a
 character, dimension(16) :: b

 a='This is a string'
 b='This is an array'
 print*,a
 print*,b

 end