program first
    character(100):: message="Hello"

    write(6,FMT="(A)") message

end program first