1 2 3 4
PROGRAM MAINF90 USE TEST_MODULE PRINT *,'Sum is',TEST_MODULE_FUNCTION(1., 2.) END PROGRAM MAINF90