18 lines
269 B
Plaintext
18 lines
269 B
Plaintext
|
program hello_world3
|
||
|
|
implicit none
|
||
|
|
character*32 text
|
||
|
|
c
|
||
|
|
text = 'Hello World'
|
||
|
|
c
|
||
|
|
call printtext(text)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
subroutine printtext(tekst)
|
||
|
|
implicit none
|
||
|
|
character*32 tekst
|
||
|
|
c
|
||
|
|
write (*,*) tekst
|
||
|
|
c
|
||
|
|
end
|