home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / test / benchabs.doc < prev    next >
Encoding:
Text File  |  1988-05-03  |  2.6 KB  |  54 lines
  1. package BENCHMARKS is
  2.  
  3. procedure DHRYSTONE;
  4. -- The Dhrystone benchmark measures statement execution per unit time 
  5. -- to give a relative measurement between Ada compilers.  Included in 
  6. -- the data is some information gathered from package SYSTEM which 
  7. -- tells of the environment in which the test is taking place.
  8.  
  9. -- WHETSTONE:
  10. -- The Whetstone benchmark provides a measurement of processor speed.  
  11. -- This test is written in FORTRAN, Pascal, and 'C' as well as ADA to 
  12. -- give a relative measurement across languages as well as compilers.  
  13. -- In the Ada version of the test, there is also some information gathered 
  14. -- from package SYSTEM which tells of the environment in which the test is
  15. -- taking place.  A skeleton command file is also provided which tests the 
  16. -- compile and link time for each compiler.  The following table gives a 
  17. -- list of the Whetstone benchmark versions being developed:
  18. --
  19. --                 CHECKS     STUBBED     FULL MATH
  20. --     LANGUAGE   INCLUDED  MATH LIBRARY   LIBRARY
  21. --   +-----------+---------+------------+----------+
  22. --   | Ada       | NONE    |     X      |    X     |
  23. --   | Ada       | ALL     |     X      |    X     |
  24. --   | FORTRAN77 | DEFAULT |     X      |    X     |
  25. --   | FORTRAN77 | ALL     |     X      |    X     |
  26. --   | FORTRAN77 | NONE    |     X      |    X     |
  27. --   | PASCAL    | DEFAULT |     X      |    X     |
  28. --   | PASCAL    | ALL     |     X      |    X     |
  29. --   | PASCAL    | NONE    |     X      |    X     |
  30. --   | C         | DEFAULT |     X      |    X     |
  31. --   +-----------+---------+------------+----------+
  32.  
  33. package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  34.         (DEVELOPING_ORGANIZATION     => "GTE Government Systems",
  35.          AUTHOR                      => "various",
  36.          CONTACT                     => "Sam Harbaugh",
  37.          ADDRESS                     => ("100 Ferguson Drive",
  38.                                          "Mountain View",
  39.                                          "CA","94039"),
  40.          PHONE                       => (415,966,4574),
  41.          DATE_SUBMITTED              => (12,Apr,1985));
  42.  
  43. package TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  44.         (LINES_OF_SOURCE_CODE        => 250,
  45.          DEVELOPMENT_COMPILER        => (DECVAX,DECADA),
  46.          PLANNED_COMPILERS_SUPPORTED => (DECVAX,DECADA),
  47.          AUXILLIARY_FILES_SIZE       => (80 * LINES_OF_CODE));
  48.  
  49. package DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  50.         (COMPLETED_EVENTS            => ((PDR,(8,Jan,1985)),
  51.          SCHEDULE_EVENTS             => ((DELIVERY,(30,May,1985)));
  52.  
  53. end BENCHMARKS;
  54.