CMake/Tests/Fortran/test_module_implementation.f90

7 lines
179 B
Fortran
Raw Normal View History

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