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