aboutsummaryrefslogtreecommitdiffstats
path: root/meson/test cases/fortran/9 cpp/fortran.f
diff options
context:
space:
mode:
Diffstat (limited to 'meson/test cases/fortran/9 cpp/fortran.f')
-rw-r--r--meson/test cases/fortran/9 cpp/fortran.f11
1 files changed, 11 insertions, 0 deletions
diff --git a/meson/test cases/fortran/9 cpp/fortran.f b/meson/test cases/fortran/9 cpp/fortran.f
new file mode 100644
index 000000000..255872c91
--- /dev/null
+++ b/meson/test cases/fortran/9 cpp/fortran.f
@@ -0,0 +1,11 @@
+ 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