Anonymous user
Return multiple values: Difference between revisions
Fortran added
m (→{{header|C}}: Spelling) |
(Fortran added) |
||
Line 403:
2dup / >r * r> ;</lang>
=={{header|Fortran}}==
{{trans|Haskell}}
<lang Fortran>module multiple_values
implicit none
type res
integer :: p, m
end type
contains
function addsub(x,y) result(r)
integer :: x, y
type(res) :: r
r%p = x+y
r%m = x-y
end function
end module
program main
use multiple_values
print *, addsub(33, 22)
end program
</lang>
=={{header|Go}}==
Functions can return multiple values in Go:
|