program main
    implicit none
    
    real(8) :: x(3)
    
    x = [1., 2., 3.]
    print *, x
    print *, sin(x)
    
end program
