Sign in
qemu
/
meson
/
2d010c693b97694a82458ba89d4da569e21c60aa
/
.
/
test cases
/
fortran
/
9 cpp
/
fortran.f
blob: 255872c9160e5aaf1d48148edd1adba7f6662db1 [
file
] [
log
] [
blame
]
function
fortran
()
bind
(
C
)
use
,
intrinsic
::
iso_c_binding
,
only
:
dp
=>
c_double
implicit
none
real
(
dp
)
::
r
,
fortran
call random_number
(
r
)
fortran
=
2.
_dp
**
r
end
function
fortran