program assignment
  implicit none
  integer a
  real b
  double precision c
  character(len=3) d
  a = 55      ! aに55を代入する
  b = 1.23    ! bに1.23を代入する
  c = 1.23d0  ! cに1.23（倍精度）を代入する
  d = 'ABCD'  ! dにABCDを代入する
  print *, a, b, c, d
end program assignment