[ForTran 6] Quote Format
program Quote Format
character name*20
write(*,*)'Enter your name :'
read(*,2)name
2 format(A20)
write(*,1)name
1 format('Your name is :',A)
write(*,3)
3 format('This is also a quote format')
end
program Quote Format
character name*20
write(*,*)'Enter your name :'
read(*,2)name
2 format(A20)
write(*,1)name
1 format('Your name is :',A)
write(*,3)
3 format('This is also a quote format')
end