program test
  integer, parameter :: b = 80
  character(len=b) :: msg1 = "hello world"
  character(len=80) :: msg2
  character :: ch1 = "c"
  character :: ch2
  integer :: a
  msg2 = "Hello world"
  ch2 = "C"
  a = 6 + 4
end program test
