You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
269 B
18 lines
269 B
4 years ago
|
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
|