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
