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