program ch1203
  implicit none
  real, dimension (5) :: x = (/ 1.0, 2.0, 3.0, 4.0, 5.0 /)
  print *, ' sine of ', x, ' = ', sin(x)
end program ch1203