**********00010830 * FORTRAN 77 00020830 FM830 00030830 * YGEN2 - (207) 00040830 00050830 **********00060830 * GENERAL PURPOSE ANS REF 00070830 TEST GENERIC FUNCTIONS 15.3 00080830 * AINT, ANINT, NINT, SQRT, EXP, LOG, LOG10 TABLE 5 00090830 00100830 BB *** BBCCOMNT ******00110830 00120830 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130830 VERSION 2.1 00140830 00150830 00160830 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170830 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180830 SOFTWARE STANDARDS VALIDATION GROUP 00190830 BUILDING 225 RM A266 00200830 GAITHERSBURG, MD 20899 00210830 00220830 00230830 00240830 BE *** BBCCOMNT ******00250830 00260830 * S P E C I F I C A T I O N S SEGMENT 207 00270830 * 00320830 BB *** BBCINITA ******00330830 SPECIFICATION STATEMENTS 00340830 00350830 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480830 FOR IDENTIFYING THE TEST ENVIRONMENT 00490830 00500830 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510830 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520830 Z03 ZPROG = 'PROGRAM NAME' 00530830 Z04 ZDATE = 'DATE OF TEST' 00540830 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00550830 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00560830 Z07 ZNAME = 'NAME OF USER' 00570830 Z08 ZTAPE = 'TAPE OWNER/ID' 00580830 Z09 ZTAPED = 'DATE TAPE COPIED' 00590830 00600830 00890830 WRITE REPORT TITLE 00900830 00910830 00990830 * HEADER FOR SEGMENT 207 01000830 WRITE DETAIL REPORT HEADERS 01060830 01070830 01140830 T001 TEST 1 TEST OF NINT WITH DOUBLE PREC 01150830 * WITH REAL AND COMPLEX 02150830 02290830 BB *** BBCSUM0 ******02300830 WRITE OUT TEST SUMMARY 02310830 02320830 WRITE OUT REPORT FOOTINGS 02440830 02450830 FORMATS FOR TEST DETAIL LINES 02510830 02520830 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02720830 02730830 FORMAT STATEMENTS FOR PAGE HEADERS 02870830 02880830 03010830 FORMAT STATEMENTS FOR REPORT FOOTINGS 03020830 03030830 03080830 FORMAT STATEMENTS FOR RUN SUMMARY 03090830 03100830 * 03170830 * END OF TEST SEGMENT 207 03180830
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| complex | :: | AVC | ||||
| double precision | :: | AVD | ||||
| double precision | :: | DVCORR | ||||
| real | :: | R2E(2) | ||||
| character | :: | REMRKS*31 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZCOMPL*20 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZDATE*17 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZNAME*20 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZPROG*5 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZPROJ*13 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZTAPE*10 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZTAPED*13 | *** INITIALIZE SECTION 00400830 |
|||
| complex | :: | ZVCORR | ||||
| character | :: | ZVERS*13 | *** INITIALIZE SECTION 00400830 |
|||
| character | :: | ZVERSD*17 | *** INITIALIZE SECTION 00400830 |