Program
ex0901
implicit none
open
(
unit
=
10
,
file
=
'Hello.txt'
)
write
(
10
,
*
)
"Hello"
stop
end