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
|