1 2 3 4 5 6
character (len=10)::hello hello="hello" if 4==5 then hello="goodbye " endif print *,hello,6," world" endprint