Rivoreo Source Code Repositories
src.rivoreo.one
/
compiler-explorer
/
231ac3a38dee80b1f32fc256595ad3a01d8b8395
/
.
/
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