program main
    integer:: i,j
    real:: r(4)
    print *, "hello, world"
    
    r =[/1,2,3,4/]

    print*, r

end