16 lines
422 B
Fortran
16 lines
422 B
Fortran
program entreprise_hello
|
|
implicit none
|
|
|
|
character(len=*), parameter :: PERSON = "World"
|
|
character(len=:), allocatable :: greeting
|
|
|
|
greeting = greet(PERSON)
|
|
print '(A)', greeting
|
|
contains
|
|
pure function greet(person_) result(greeting_)
|
|
character(len=*), intent(in) :: person_
|
|
character(len=:), allocatable :: greeting_
|
|
|
|
greeting_ = "Hello, " // person_ // "!"
|
|
end function greet
|
|
end program entreprise_hello |