mirror of
https://github.com/reactos/CMake.git
synced 2024-12-11 13:24:58 +00: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
|