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.
20 lines
351 B
20 lines
351 B
function foo(dist, p) result(value)
|
|
integer :: value
|
|
integer, intent(in) :: dist
|
|
integer, intent(in) :: p
|
|
|
|
value = dist+value
|
|
end function foo
|
|
|
|
program hello
|
|
interface
|
|
subroutine bar(a,b)
|
|
integer, intent(in) :: a
|
|
integer, intent(out) :: b
|
|
end subroutine bar
|
|
end interface
|
|
integer :: a
|
|
|
|
call bar(a,a)
|
|
|
|
end program hello
|