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