mirror of
https://github.com/Kitware/CMake.git
synced 2025-06-22 20:34:08 +08:00
7 lines
179 B
Fortran
7 lines
179 B
Fortran
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
|