Sign in
fuchsia
/
third_party
/
cmake
/
b80e39d0f6a96c67f731c98b7bfc696fcfe11268
/
.
/
Tests
/
FortranModules
/
test_module_implementation.f90
blob: de3cb574c1f1f9b36b38db38a3c95c20202f0902 [
file
] [
log
] [
blame
]
FUNCTION TEST_MODULE_FUNCTION
(
A
,
B
)
REAL
::
TEST_MODULE_FUNCTION
REAL
,
INTENT
(
IN
)
::
A
REAL
,
INTENT
(
IN
)
::
B
TEST_MODULE_FUNCTION
=
A
+
B
END
FUNCTION TEST_MODULE_FUNCTION