program string
character(len=15)::a
a="Hello World!"
print*,a
end program string