Skip to content

Instantly share code, notes, and snippets.

@certik

certik/intent_out.f90

Created September 23, 2023 21:41
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save certik/9fc75ebf47019f75994ef7e251402218 to your computer and use it in GitHub Desktop.
Save certik/9fc75ebf47019f75994ef7e251402218 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
intent_out.f90
program expr2
implicit none
integer :: y, z
z = f(y)
print *, z, y
contains
integer function f(x) result(c)
integer, intent(out) :: x
x = 15
c = 14
end function
end program
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment