1. with Ada.Numerics.Generic_Elementary_Functions; 
  2.  
  3. package Real_Type is 
  4.  
  5.    subtype Real is Long_Float; 
  6.  
  7.    package Real_Elementary_Functions is 
  8.      new Ada.Numerics.Generic_Elementary_Functions (Real); 
  9.  
  10. end Real_Type;