Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
4f40d36fd2a64d0d76d12d0991bdc41017c19b83
/
.
/
examples
/
fortran
/
default.f90
blob: 6458d8f6cc6f071655fb05d183558841ac84a2a0 [
file
] [
log
] [
blame
] [
raw
]
!
Type
your code here
,
or
load an example
.
real
function
square
(
x
)
implicit
none
real
,
intent
(
in
)
::
x
square
=
x
*
x
return
end
function
square