Programs

**********00010110 * FORTRAN 77 00020110 FM110 IOFMT - (350) 00030110 * 00040110 **********00050110 GENERAL PURPOSE SUBSET REFS00060110 * TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070110 STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080110 * FOR INTEGER AND REAL DATA TYPES 00090110 RESTRICTIONS OBSERVED 00100110 * * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00110110 * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120110 * * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130110 W IS EQUAL TO OR GREATER THAN D 00140110 * * FIELD WIDTH IS NEVER ZERO 00150110 * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160110 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170110 IN THE FORMAT SPECIFICATION 00180110 * * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190110 * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200110 * * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210110 * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220110 * THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230110 INTEGER CONSTANT 00240110 BB *** BBCCOMNT ******00250110 00260110 1978 FORTRAN COMPILER VALIDATION SYSTEM 00270110 VERSION 2.1 00280110 00290110 00300110 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00310110 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00320110 SOFTWARE STANDARDS VALIDATION GROUP 00330110 BUILDING 225 RM A266 00340110 GAITHERSBURG, MD 20899 00350110 00360110 00370110 00380110 BE *** BBCCOMNT ******00390110 INPUT DATA TO THIS SEGMENT CONSISTS OF 40 CARD IMAGES IN COL. 1 - 80 00400110 COLS. 22 25 31 34-35 40-43 55 67 69 74-76 00410110 ARD 1 . . . 0. E+00 + + . E00 00420110 COLS. 16 31 33 42-45 50 59-60 00430110 ARD 2 + + . D+00 . D0 00440110 COLS. 1-----------14 18-----26 28-------38 00450110 ARD 3 1.23456987654. +1.234E-0 -98.7654E+0 00460110 COLS 1---5 00470110 ARDS 4,5,6,7,8 12345 00480110 COLS. 1-3 00490110 ARDS 9,10,11,12 1.1 00500110 COLS. 1------------------------------------------------------58 00510110 ARD 13 +0.339567E+02 00520110 ARD 14 + .339567+2 00530110 ARD 15 + 3.395670E1 00540110 ARD 16 0.96295134244D+04 00550110 ARD 17 .96295134244D04 00560110 ARD 18 0.96295134244+4 00570110 ARD 19 +.96295134244D4 00580110 ARD 20 31.23+0.14E+04+0.2D+02 00590110 ARD 21 31.23 .14D+4 +.2+2 00600110 ARD 22 -0.13579E+054444 00610110 ARD 23 4444 00620110 ARD 24 4444 00630110 ARD 25 4444 00640110 ARD 26 4444 00650110 ARD 27 -333 5.555+0.4545E-04 00660110 ARD 28 -6.666 .9989E+12 00670110 ARD 29 7.77-0.747E-02 +0.549E022 00680110 ARD 30 +0.662E-00 0.468-1011 00690110 ARD 31 0.59542D+04-44.6666-0.1234560000D-03 00700110 ARD 32 54.9327-0.1395624534D+00 00710110 ARD 33 65432.1 00720110 ARD 34 +0.848E+03 .848E3 + .1290D7+0.129D+07 0.412D21 00730110 ARD 35 22222222222222222222222222222222222222222222222222 00740110 ARD 36 -.987E0-0.987E+00 -.987D0 00750110 ARD 37 5 5 00760110 ARD 38 987654 8647.86 987.654 00770110 ARD 39 1.2345E0 1.2345 1234.5 00780110 ARD 40 12345. 00790110 ARD COLS. NOT MENTIONED ARE BLANK 00800110 00810110 * S P E C I F I C A T I O N S SEGMENT 350 00820110 00830110 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01060110 FOR IDENTIFYING THE TEST ENVIRONMENT 01070110 01080110 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01090110 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01100110 Z03 ZPROG = 'PROGRAM NAME' 01110110 Z04 ZDATE = 'DATE OF TEST' 01120110 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 01130110 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01140110 Z07 ZNAME = 'NAME OF USER' 01150110 Z08 ZTAPE = 'TAPE OWNER/ID' 01160110 Z09 ZTAPED = 'DATE TAPE COPIED' 01170110 01180110 01480110 WRITE REPORT TITLE 01490110 01500110 * ALL VARIABLES AND ARRAY ELEMENTS USED IN THIS SEGMENT 01580110 ARE FIRST SET TO A NON-ZERO VALUE 01590110 * 01600110 HEADER FOR SEGMENT 350 WRITTEN 01610110 * 01650110 BB* **** BBCHED0B *****01660110 WRITE DETAIL REPORT HEADERS 01670110 01680110 01910110 01920110 T001 TEST 1 01930110 * 01950110 TEST THAT BLANK INPUT FIELDS ARE TREATED AS ZERO 13.5.9 01960110 * I, E, and F EDIT DESCRIPTORS ARE TESTED 01970110 CARDS 1 AND 2 01980110 * 01990110 TO DELETE TEST INSERT THE FOLLOWING CODE: 02040110 IVDELE=IVDELE+1 02050110 WRITE (NUVI,80000) IVTNUM 02060110 COMMENT OUT FOLLOWING CODE UNTIL NEXT TEST 02070110 *** 02120110 * 02240110 T002 TEST 2 02250110 TEST THAT DECIMAL POINTS APPEARING IN INPUT FIELDS 13.5.9.2.102270110 * OVERRIDE THE SPECIFICATIONS SUPPLIED BY E AND F 02280110 * EDIT DESCRIPTORS 02290110 * CARD 3 02350110 SEE TEST 1 TO DELETE TEST (ENTER CODE HERE) 02470110 * 02530110 T003 TEST 3 02540110 TEST COMPLETE FORMAT RESCAN 13.3 02560110 * WHEN ADDITIONAL ITEMS REMAIN IN AN I/O LIST 02570110 AND THE LAST RIGHT PARENTHESIS HAS BEEN REACHED 02580110 * IN THE CORRESPONDING FORMAT STATEMENT 02590110 CARDS 4, 5, 6, 7, 8 02680110 *** 02700110 TO DELETE TEST 3 - CARDS 4 THRU 21 MUST BE BYPASS 02710110 USE THE FOLLOWING CODE: 02720110 IVDELE=IVDELE+1 02730110 WRITE (NUVI,80000) IVTNUM 02740110 DO 0031 IPASS=1,18 02750110 0032 FORMAT (A80) 02760110 READ (IRVI,0032) IDATA 02770110 0031 CONTINUE 02780110 COMMENT OUT REMAINING CODE UNTIL NEXT TEST 02790110 *** 02800110 * CARDS 9, 10, 11, 12 02920110 CARDS 13, 14, 15 03010110 * CARDS 16, 17, 18, 19 WITH D EXPONENTS 03110110 CARDS 20, 21 03210110 ***** 03350110 T004* TEST 4 03360110 03380110 ***** 03390110 * TEST THAT FORMAT CONTROL PASSES TO THE GROUP 03400110 ENCLOSED BY THE LAST PRECEDING RIGHT PARENTHESIS 03410110 * WHEN THE I/O LIST CONTAINS MORE ELEMENTS THAN 03420110 THE NUMBER OF DESCRIPTORS IN THE FORMAT STATEMENT 03430110 ***** 03440110 CARDS 22, 23, 24, 25, 26 03690110 * SEE NOTES TEST1 & TEST 3 TO BYPASS TEST 03710110 CARDS 22 THRU 26 MUST BE BYPASSED 03720110 * 03870110 CARDS 27, 28 03890110 * SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 03900110 CARDS 27,28 SHOULD BE BYPASSED 03910110 * CARDS 29, 30 04110110 SEE NOTES TEST 1 & 3 TO DELETE TEST 04130110 * CARDS 29 & 30 MUST BE BYPASSED 04140110 CARDS 31, 32 04430110 * SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04440110 * CARDS 31,& 32 SHOULD BE BYPASSED 04450110 04720110 T008 TEST 8 04730110 CARDS 33, 34, 35, 36 04750110 * SEE NOTES TEST 1 & TEST 3 TO DELETE TEST 04760110 CARDS 33 THRU 36 SHOULD BE BYPASSED 04770110 * THIS READ CAUSES AN INPUT DATA CARD TO BE SKIPPED 04820110 TEST FOR EMPTY FORMAT STATEMENT 05010110 * SEE NOTES TEST 1 TO DELETE TEST 05020110 POSITION INPUT TO INSURE CORRECT RECORD FOR NEXT TESTS 05120110 * CARD 37 05140110 05200110 * ADDITIONAL SCALE FACTOR ON INPUT-OUTPUT 13.5.7 05210110 CARD 38 05220110 SEE NOTES TEST 1 TO DELETE TEST (INSERT CODE HERE) 05270110 CARDS 39 & 40 05360110 * SCALE FACTOR HAS NO EFFECT ON FORMAT RESCAN OR F EDIT 05370110 DESCRIPTOR WITH INPUT DATA CONTAINING AN EXPONENT 05380110 SEE NOTES TEST 1 TO DELETE TEST 05430110 WRITE OUT TEST SUMMARY 05560110 05570110 WRITE OUT REPORT FOOTINGS 05690110 05700110 FORMATS FOR TEST DETAIL LINES 05760110 05770110 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05970110 05980110 FORMAT STATEMENTS FOR PAGE HEADERS 06120110 06130110 06260110 FORMAT STATEMENTS FOR REPORT FOOTINGS 06270110 06280110 06330110 FORMAT STATEMENTS FOR RUN SUMMARY 06340110 06350110 * END OF TEST SEGMENT 350 06420110

**********00010111 * FORTRAN 77 00020111 FM111 IOFMTS - (353) 00030111 * 00040111 **********00050111 GENERAL PURPOSE SUBSET REFS00060111 * TO TEST ADDITIONAL FEATURES OF READ AND WRITE 12.8 00070111 STATEMENTS, FORMATTED RECORDS AND FORMAT STATEMENTS 12.1.1 00080111 * FOR INTEGER AND REAL DATA TYPES 00090111 TO TEST CHARACTER CONSTANTS AS FORMAT SPECIFIERS. 13.1.2 00100111 * RESTRICTIONS OBSERVED 00110111 * H AND X DESCRIPTORS ARE NEVER REPEATED 13.2.1 00120111 * * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00130111 W IS EQUAL TO OR GREATER THAN D 00140111 * * FIELD WIDTH IS NEVER ZERO 00150111 * IF AN I/O LIST SPECIFIES AT LEAST ONE ITEM 13.3 00160111 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170111 IN THE FORMAT SPECIFICATION 00180111 * * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 00190111 * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00200111 * * AN H EDIT DESCRIPTOR IS NEVER USED ON INPUT 13.5.2 00210111 * IN THE INPUT FIELD, FOR THE IW EDIT DESCRIPTOR 13.5.9.1 00220111 * THE CHARACTER STRING MUST BE AN OPTIONALLY SIGNED 00230111 INTEGER CONSTANT 00240111 * GENERAL COMMENTS 00250111 PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00260111 INPUT DATA TO THIS SEGMENT CONSISTS OF 8 CARD IMAGES IN COL. 1 - 39 00270111 OL. 1-------------------------------------------46 00280111 ARD 1 111 2 2 3 3. 3E-1 44 5 5 6 . 67 . 78 8. 8E-1 00290111 ARD 2 9 9 00300111 ARD 3 2345 1 34512 45123 51234 00310111 ARD 4 2345 1 34512 45123 51234 00320111 ARD 5 00330111 ARD 6 246801357912345678901234 00340111 ARD 7 .10203040506070809010E+0233.33 00350111 ARD 8 1 2 3 4 5 6 00360111 * 00370111 S P E C I F I C A T I O N S SEGMENT 353 00380111 * 00390111 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00750111 FOR IDENTIFYING THE TEST ENVIRONMENT 00760111 00770111 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00780111 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00790111 Z03 ZPROG = 'PROGRAM NAME' 00800111 Z04 ZDATE = 'DATE OF TEST' 00810111 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00820111 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00830111 Z07 ZNAME = 'NAME OF USER' 00840111 Z08 ZTAPE = 'TAPE OWNER/ID' 00850111 Z09 ZTAPED = 'DATE TAPE COPIED' 00860111 00870111 * TOTAL NUMBER OF EXPECTED TEST 01140111 01180111 WRITE REPORT TITLE 01190111 01200111 * HEADER FORMAT STATEMENT 01280111 WRITE DETAIL REPORT HEADERS 01340111 01350111 01420111 ******** 01430111 TO DELETE A TEST USED CODE SHOWN IN TEST 1 * 01440111 REPLACE THE DELETE COMMENT WITH DELETE CODE * 01450111 ******* 01460111 T001 TEST 1 01470111 * TEST VARIOUS COMBINATION OF BZ AND BN EDIT 13.5.8 01480111 DESCRIPTORS, INCLUDING USING EACH AS A LEADING 13.5.9(1)01490111 * DESCRIPTOR, AND PRECEDING IW, EW.D, AND FW.D DESCRIPTORS. 01500111 BN AND BZ HAVE NO EFFECT ON OUTPUT. 13.5.8 01510111 * CARDS 1-2 01520111 01530111 TO DELETE TEST 1 - CARDS 1 THRU 5 MUST BE BYPASS 01550111 USE THE FOLLOWING CODE: 01560111 IVDELE=IVDELE+1 01570111 WRITE (NUVI,80000) IVTNUM 01580111 DO 0031 IPASS=1,5 01590111 0011 FORMAT (A80) 01600111 READ (IRVI,0011) IDATA 01610111 0031 CONTINUE 01620111 COMMENT OUT OUT FOLLOWING LINES UNTIL NEXT TEST 01630111 *** 01640111 *****TEST 1 *** 01720111 CARDS 3-4 01790111 ********* 01830111 CARD 5 01920111 ******** 01960111 * 02030111 T002 TEST 2 02040111 TEST CASES WHERE THE NUMBER OF CHARACTERS TO BE 13.5.9(3) 02050111 * OUTPUT EXCEEDS THE SPECIFIED OUTPUT FIELD WIDTH, 02060111 OR AN EXPONENT EXCEEDS ITS SPECIFIED LENGTH. 02070111 ***** 02080111 SEE NOTES TEST 1 TO DELETE TEST (NO READS REQUIRED) 02100111 ******** 02140111 * 02230111 - TEST THAT FW.D AND EW.D MAY HAVE MORE DIGITS 13.5.9(2) 02240111 * ON INPUT THAN THE PROCESSOR CAN USE. 02250111 - READ IN AN ARRAY USING AN IMPLIED DO-LOOP, AND 12.8.2.3 02260111 * AND TEST VALUE OF THE IMPLIED DO-PARAMETER. 11.10 02270111 - USE AS A FORMAT AN INTEGER VARIABLE WHOSE VALUE 10.3 02280111 * IS ASSIGNED USING AN ASSIGNMENT STATEMENT. 12.4(2) 02290111 - TEST THAT ON INPUT, THE X-EDIT DESCRIPTOR MAY 13.5.3 02300111 * SPECIFY A POSITION BEYOND COLUMN 80 IF THERE ARE 02310111 NO MORE ITEMS IN THE I/O LIST. 02320111 * 02330111 CARDS 6-7 02350111 * SEE NOTES TEST 1 TO DELETE TEST 02360111 CARDS 6 & 7 MUST BE BYPASSED 02370111 ********* 02430111 02500111 T004 TEST 4 02510111 * - TEST NESTING OF 3 LEVELS OF PARENTHESES WITHIN A 02520111 FORMAT STATEMENT. 02530111 * - TEST DIFFERENT FORMS OF CHARACTER CONSTANTS USED 12.4(2)02540111 AS A FORMAT SPECIFIER, INCLUDING BLANKS BEFORE 13.1.2 02550111 * THE FIRST PARENTHESIS, AND CHARCTERS AFTER THE 02560111 LAST PARENTHESIS. 02570111 * - 2 CONSECUTIVE APOSTROPHES IN A H-EDIT DESCRIPTOR 13.5.2 02580111 CARD 8 02590111 * SEE NOTES TEST 1 TO DELETE TEST 02610111 NO READS REQUIRED 02620111 ******* 02670111 * 02780111 END OF TEST SEGMENT 353 02800111 BB *** BBCSUM0 ******02810111 WRITE OUT TEST SUMMARY 02820111 02830111 WRITE OUT REPORT FOOTINGS 02950111 02960111 FORMATS FOR TEST DETAIL LINES 03020111 03030111 FORMAT STATEMENTS FOR PAGE HEADERS 03230111 03240111 03370111 FORMAT STATEMENTS FOR REPORT FOOTINGS 03380111 03390111 03440111 FORMAT STATEMENTS FOR RUN SUMMARY 03450111 ** 03460111

**********00010258 * FORTRAN 77 00020258 FM258 00030258 * BLKIF1 - (300) 00040258 00050258 **********00060258 * GENERAL PURPOSE SUBSET REF 00070258 TEST BLOCK IF STATEMENTS 11.6 - 11.9 00080258 * SIMPLE TESTS OF IF (E) THEN,ELSE,ELSEIF,ENDIF 00090258 00100258 BB *** BBCCOMNT ******00110258 00120258 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130258 VERSION 2.1 00140258 00150258 00160258 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170258 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180258 SOFTWARE STANDARDS VALIDATION GROUP 00190258 BUILDING 225 RM A266 00200258 GAITHERSBURG, MD 20899 00210258 00220258 00230258 00240258 BE *** BBCCOMNT ******00250258 BB *** BBCINITA ******00260258 SPECIFICATION STATEMENTS 00270258 00280258 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410258 FOR IDENTIFYING THE TEST ENVIRONMENT 00420258 00430258 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440258 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450258 Z03 ZPROG = 'PROGRAM NAME' 00460258 Z04 ZDATE = 'DATE OF TEST' 00470258 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480258 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490258 Z07 ZNAME = 'NAME OF USER' 00500258 Z08 ZTAPE = 'TAPE OWNER/ID' 00510258 Z09 ZTAPED = 'DATE TAPE COPIED' 00520258 00530258 00810258 WRITE REPORT TITLE 00820258 00830258 TOTAL NUMBER OF EXPECTED TEST 00910258 * HEADER FOR SEGMENT 300 00930258 WRITE DETAIL REPORT HEADERS 00980258 00990258 01060258 * 02360258 02380258 BB *** BBCSUM0 ******02390258 WRITE OUT TEST SUMMARY 02400258 02410258 WRITE OUT REPORT FOOTINGS 02530258 02540258 FORMATS FOR TEST DETAIL LINES 02600258 02610258 FORMAT STATEMENTS FOR PAGE HEADERS 02810258 02820258 02950258 FORMAT STATEMENTS FOR REPORT FOOTINGS 02960258 02970258 03020258 FORMAT STATEMENTS FOR RUN SUMMARY 03030258 03040258 * END OF TEST SEGMENT 300 03170258

**********00010259 * FORTRAN 77 00020259 FM259 00030259 * BLKIF2 - (301) 00040259 00050259 **********00060259 * GENERAL PURPOSE SUBSET REF 00070259 TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080259 * WITH GOTO, COMPUTED GOTO, ASSIGN GOTO, DO 11.6 - 11.1000090259 00100259 BB *** BBCCOMNT ******00110259 00120259 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130259 VERSION 2.1 00140259 00150259 00160259 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170259 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180259 SOFTWARE STANDARDS VALIDATION GROUP 00190259 BUILDING 225 RM A266 00200259 GAITHERSBURG, MD 20899 00210259 00220259 00230259 00240259 BE *** BBCCOMNT ******00250259 BB *** BBCINITA ******00260259 SPECIFICATION STATEMENTS 00270259 00280259 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410259 FOR IDENTIFYING THE TEST ENVIRONMENT 00420259 00430259 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440259 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450259 Z03 ZPROG = 'PROGRAM NAME' 00460259 Z04 ZDATE = 'DATE OF TEST' 00470259 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480259 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490259 Z07 ZNAME = 'NAME OF USER' 00500259 Z08 ZTAPE = 'TAPE OWNER/ID' 00510259 Z09 ZTAPED = 'DATE TAPE COPIED' 00520259 00530259 00820259 WRITE REPORT TITLE 00830259 00840259 00920259 * HEADER FOR SEGMENT 301 00930259 WRITE DETAIL REPORT HEADERS 00990259 01000259 01070259 * 01770259 BB* **** BBCSUM0 *****01780259 WRITE OUT TEST SUMMARY 01790259 01800259 WRITE OUT REPORT FOOTINGS 01920259 01930259 FORMATS FOR TEST DETAIL LINES 01990259 02000259 FORMAT STATEMENTS FOR PAGE HEADERS 02200259 02210259 02340259 FORMAT STATEMENTS FOR REPORT FOOTINGS 02350259 02360259 02410259 FORMAT STATEMENTS FOR RUN SUMMARY 02420259 02430259 02500259 *** END OF TEST SEGMENT 301 02560259

**********00010260 * FORTRAN 77 00020260 FM260 00030260 * BLKIF3 - (302) 00040260 00050260 **********00060260 * GENERAL PURPOSE SUBSET REF 00070260 TEST BLOCK IF STATEMENTS 11.1 - 11.3 00080260 * WITH DO, ARITHMETIC IF, LOGICAL IF, 11.6 - 11.1000090260 COMPUTED GOTO, ASSIGN GOTO 00100260 * 00110260 BB* **** BBCCOMNT *****00120260 00130260 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140260 VERSION 2.1 00150260 00160260 00170260 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180260 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190260 SOFTWARE STANDARDS VALIDATION GROUP 00200260 BUILDING 225 RM A266 00210260 GAITHERSBURG, MD 20899 00220260 00230260 00240260 00250260 BE *** BBCCOMNT ******00260260 BB *** BBCINITA ******00270260 SPECIFICATION STATEMENTS 00280260 00290260 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420260 FOR IDENTIFYING THE TEST ENVIRONMENT 00430260 00440260 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450260 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460260 Z03 ZPROG = 'PROGRAM NAME' 00470260 Z04 ZDATE = 'DATE OF TEST' 00480260 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490260 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500260 Z07 ZNAME = 'NAME OF USER' 00510260 Z08 ZTAPE = 'TAPE OWNER/ID' 00520260 Z09 ZTAPED = 'DATE TAPE COPIED' 00530260 00540260 00830260 WRITE REPORT TITLE 00840260 00850260 TOTAL NUMBER OF EXPECTED TESTS 00930260 * 00940260 HEADER FOR SEGMENT 302 00950260 WRITE DETAIL REPORT HEADERS 01010260 01020260 * 01090260 ASSIGNED GOTO 01120260 * LABEL ON A ENDIF IS PERMITTED 01360260 02040260 * 02090260 BB* **** BBCSUM0 *****02100260 WRITE OUT TEST SUMMARY 02110260 02120260 WRITE OUT REPORT FOOTINGS 02240260 02250260 FORMATS FOR TEST DETAIL LINES 02310260 02320260 FORMAT STATEMENTS FOR PAGE HEADERS 02520260 02530260 02660260 FORMAT STATEMENTS FOR REPORT FOOTINGS 02670260 02680260 02730260 FORMAT STATEMENTS FOR RUN SUMMARY 02740260 02750260 END OF TEST SEGMENT 302 02820260

**********00010261 * FORTRAN 77 00020261 FM261 00030261 * BLKIF4 - (303) 00040261 THIS PROGRAM CALLS SUBROUTINES SN262, SN263 AND INTEGER 00050261 FUNCTION IF264 00060261 **********00070261 * GENERAL PURPOSE SUBSET REF 00080261 TEST BLOCK IF STATEMENTS 11.6 - 11.900090261 * WITH SUBROUTINE CALLS 15.6 00100261 USES SUBROUTINES SN262 (750), SN263 (751) 00110261 * AND FUNCTION IF264 (752) 00120261 BB* **** BBCCOMNT *****00130261 00140261 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150261 VERSION 2.1 00160261 00170261 00180261 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190261 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200261 SOFTWARE STANDARDS VALIDATION GROUP 00210261 BUILDING 225 RM A266 00220261 GAITHERSBURG, MD 20899 00230261 00240261 00250261 00260261 BE *** BBCCOMNT ******00270261 BB *** BBCINITA ******00280261 SPECIFICATION STATEMENTS 00290261 00300261 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430261 FOR IDENTIFYING THE TEST ENVIRONMENT 00440261 00450261 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460261 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470261 Z03 ZPROG = 'PROGRAM NAME' 00480261 Z04 ZDATE = 'DATE OF TEST' 00490261 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500261 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510261 Z07 ZNAME = 'NAME OF USER' 00520261 Z08 ZTAPE = 'TAPE OWNER/ID' 00530261 Z09 ZTAPED = 'DATE TAPE COPIED' 00540261 00550261 00830261 WRITE REPORT TITLE 00840261 00850261 TOTAL NUMBER OF EXPECTED TESTS 00930261 * HEADER FOR SEGMENT 303 00950261 WRITE DETAIL REPORT HEADERS 01010261 01020261 * 01090261 * CONTINUE 01240261 T002 TEST 2 CALL OF FUNCTION CONTAINING BLOCK IF 01250261 01360261 * 01410261 BB* **** BBCSUM0 *****01420261 WRITE OUT TEST SUMMARY 01430261 01440261 WRITE OUT REPORT FOOTINGS 01560261 01570261 FORMATS FOR TEST DETAIL LINES 01630261 01640261 FORMAT STATEMENTS FOR PAGE HEADERS 01840261 01850261 01980261 FORMAT STATEMENTS FOR REPORT FOOTINGS 01990261 02000261 02050261 FORMAT STATEMENTS FOR RUN SUMMARY 02060261 02070261 * END OF TEST SEGMENT 303 02140261

**********00010353 * FORTRAN 77 00020353 FM353 XINT - (150) 00030353 * 00040353 **********00050353 GENERAL PURPOSE SUBSET REF00060353 * TEST INTRINSIC FUNCTION - IFIX - (CONVERSION FROM 15.3 00070353 REAL TO INTEGER) (TABLE 5)00080353 * TEST INTRINSIC FUNCTION - INT - (TRUNCATION -- SIGN 00090353 OF A * LARGEST INTEGER LE ABS(A) ) 00100353 * 00110353 00120353 BB *** BBCCOMNT ******00130353 00140353 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150353 VERSION 2.1 00160353 00170353 00180353 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190353 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200353 SOFTWARE STANDARDS VALIDATION GROUP 00210353 BUILDING 225 RM A266 00220353 GAITHERSBURG, MD 20899 00230353 00240353 00250353 00260353 BE *** BBCCOMNT ******00270353 BB *** BBCINITA ******00280353 SPECIFICATION STATEMENTS 00290353 00300353 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430353 FOR IDENTIFYING THE TEST ENVIRONMENT 00440353 00450353 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460353 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470353 Z03 ZPROG = 'PROGRAM NAME' 00480353 Z04 ZDATE = 'DATE OF TEST' 00490353 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500353 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510353 Z07 ZNAME = 'NAME OF USER' 00520353 Z08 ZTAPE = 'TAPE OWNER/ID' 00530353 Z09 ZTAPED = 'DATE TAPE COPIED' 00540353 00550353 00840353 WRITE REPORT TITLE 00850353 00860353 00940353 * HEADER FOR SEGMENT 150 00950353 01000353 BB *** BBCHED0B ******01010353 WRITE DETAIL REPORT HEADERS 01020353 01030353 01180353 T001 TEST 1 THE VALUE ZERO 01190353 * 02350353 02360353 WRITE OUT TEST SUMMARY 02390353 02400353 WRITE OUT REPORT FOOTINGS 02520353 02530353 FORMATS FOR TEST DETAIL LINES 02590353 02600353 FORMAT STATEMENTS FOR PAGE HEADERS 02800353 02810353 02940353 FORMAT STATEMENTS FOR REPORT FOOTINGS 02950353 02960353 03010353 FORMAT STATEMENTS FOR RUN SUMMARY 03020353 03030353 * 03100353 END OF TEST SEGMENT 150 03110353

**********00010354 * FORTRAN 77 00020354 FM354 XREAL - (152) 00030354 * 00040354 **********00050354 GENERAL PURPOSE SUBSET REF00060354 * TEST INTRINSIC FUNCTIONS FLOAT AND REAL 15.3 00070354 (CONVERSION FROM INTEGER TO REAL) (TABLE 5)00080354 * 00090354 BB* **** BBCCOMNT *****00100354 00110354 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120354 VERSION 2.1 00130354 00140354 00150354 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160354 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170354 SOFTWARE STANDARDS VALIDATION GROUP 00180354 BUILDING 225 RM A266 00190354 GAITHERSBURG, MD 20899 00200354 00210354 00220354 00230354 BE *** BBCCOMNT ******00240354 BB *** BBCINITA ******00250354 SPECIFICATION STATEMENTS 00260354 00270354 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400354 FOR IDENTIFYING THE TEST ENVIRONMENT 00410354 00420354 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430354 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440354 Z03 ZPROG = 'PROGRAM NAME' 00450354 Z04 ZDATE = 'DATE OF TEST' 00460354 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470354 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480354 Z07 ZNAME = 'NAME OF USER' 00490354 Z08 ZTAPE = 'TAPE OWNER/ID' 00500354 Z09 ZTAPED = 'DATE TAPE COPIED' 00510354 00520354 00810354 WRITE REPORT TITLE 00820354 00830354 00910354 * HEADER FOR SEGMENT 152 00920354 WRITE DETAIL REPORT HEADERS 00980354 00990354 01060354 * TEST OF FLOAT 01070354 01080354 * 02050354 TEST OF REAL 02060354 * 02070354 WRITE OUT TEST SUMMARY 03050354 03060354 WRITE OUT REPORT FOOTINGS 03180354 03190354 FORMATS FOR TEST DETAIL LINES 03250354 03260354 FORMAT STATEMENTS FOR PAGE HEADERS 03460354 03470354 03600354 FORMAT STATEMENTS FOR REPORT FOOTINGS 03610354 03620354 03670354 FORMAT STATEMENTS FOR RUN SUMMARY 03680354 03690354 03760354 * END OF TEST SEGMENT 152 03770354

**********00010355 * FORTRAN 77 00020355 FM355 XAINT - (154) 00030355 * 00040355 **********00050355 GENERAL PURPOSE SUBSET REF00060355 * TEST INTRINSIC FUNCTIONS AINT, ANINT, NINT 15.3 00070355 TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080355 * 00090355 GENERAL COMMENTS 00100355 * FLOAT FUNCTION ASSUMED WORKING 00110355 00120355 BB *** BBCCOMNT ******00130355 00140355 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150355 VERSION 2.1 00160355 00170355 00180355 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190355 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200355 SOFTWARE STANDARDS VALIDATION GROUP 00210355 BUILDING 225 RM A266 00220355 GAITHERSBURG, MD 20899 00230355 00240355 00250355 00260355 BE *** BBCCOMNT ******00270355 BB *** BBCINITA ******00280355 SPECIFICATION STATEMENTS 00290355 00300355 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430355 FOR IDENTIFYING THE TEST ENVIRONMENT 00440355 00450355 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460355 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470355 Z03 ZPROG = 'PROGRAM NAME' 00480355 Z04 ZDATE = 'DATE OF TEST' 00490355 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500355 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510355 Z07 ZNAME = 'NAME OF USER' 00520355 Z08 ZTAPE = 'TAPE OWNER/ID' 00530355 Z09 ZTAPED = 'DATE TAPE COPIED' 00540355 00550355 00840355 WRITE REPORT TITLE 00850355 00860355 00940355 * HEADER FOR SEGMENT 154 00950355 WRITE DETAIL REPORT HEADERS 01010355 01020355 01090355 * TEST OF AINT 01100355 01110355 * 02710355 02750355 * TEST OF ANINT 02760355 02770355 * 02800355 T013 TEST 13 THE VALUE ZERO 02810355 05160355 * 05200355 TEST OF NINT 05210355 * 05220355 05250355 T031 TEST 31 THE VALUE ZERO 05260355 * 07430355 BB* **** BBCSUM0 *****07440355 WRITE OUT TEST SUMMARY 07450355 07460355 WRITE OUT REPORT FOOTINGS 07580355 07590355 FORMATS FOR TEST DETAIL LINES 07650355 07660355 FORMAT STATEMENTS FOR PAGE HEADERS 07860355 07870355 08000355 FORMAT STATEMENTS FOR REPORT FOOTINGS 08010355 08020355 08070355 FORMAT STATEMENTS FOR RUN SUMMARY 08080355 08090355 08160355 * END OF TEST SEGMENT 154 08170355

**********00010356 * FORTRAN 77 00020356 FM356 XABS - (156) 00030356 * 00040356 **********00050356 GENERAL PURPOSE SUBSET REF00060356 * TEST INTRINSIC FUNCTION ABS,IABS (ABSOLUTE VALUE) 15.3 00070356 (TABLE 5)00080356 * 00090356 BB* **** BBCCOMNT *****00100356 00110356 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120356 VERSION 2.1 00130356 00140356 00150356 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160356 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170356 SOFTWARE STANDARDS VALIDATION GROUP 00180356 BUILDING 225 RM A266 00190356 GAITHERSBURG, MD 20899 00200356 00210356 00220356 00230356 BE *** BBCCOMNT ******00240356 BB *** BBCINITA ******00250356 SPECIFICATION STATEMENTS 00260356 00270356 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400356 FOR IDENTIFYING THE TEST ENVIRONMENT 00410356 00420356 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430356 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440356 Z03 ZPROG = 'PROGRAM NAME' 00450356 Z04 ZDATE = 'DATE OF TEST' 00460356 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470356 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480356 Z07 ZNAME = 'NAME OF USER' 00490356 Z08 ZTAPE = 'TAPE OWNER/ID' 00500356 Z09 ZTAPED = 'DATE TAPE COPIED' 00510356 00520356 00810356 WRITE REPORT TITLE 00820356 00830356 00910356 * HEADER FOR SEGMENT 156 00920356 WRITE DETAIL REPORT HEADERS 00980356 00990356 01060356 * TEST OF ABS 01070356 01080356 * 01770356 TEST OF IABS 01780356 * 01790356 01820356 T006 TEST 6 THE VALUE ZERO 01830356 * 02430356 BB* **** BBCSUM0 *****02440356 WRITE OUT TEST SUMMARY 02450356 02460356 WRITE OUT REPORT FOOTINGS 02580356 02590356 FORMATS FOR TEST DETAIL LINES 02650356 02660356 FORMAT STATEMENTS FOR PAGE HEADERS 02860356 02870356 03000356 FORMAT STATEMENTS FOR REPORT FOOTINGS 03010356 03020356 03070356 FORMAT STATEMENTS FOR RUN SUMMARY 03080356 03090356 03160356 * END OF TEST SEGMENT 156 03170356

**********00010357 * FORTRAN 77 00020357 FM357 XAMOD - (159) 00030357 * 00040357 **********00050357 GENERAL PURPOSE ANS REF 00060357 * TEST INTRINSIC FUNCTIONS AMOD AND MOD - REMAINDERING, 15.3 00070357 WHICH IS DEFINED AS A1-(A1/A2)A2 WHERE (X) IS AN (TABLE 5)00080357 * INTEGER WHOSE MAGNITUDE IS LE ABS(X) AND WHOSE SIGN 00090357 IS THE SAME AS X. 00100357 * 00110357 BB* **** BBCCOMNT *****00120357 00130357 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140357 VERSION 2.1 00150357 00160357 00170357 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180357 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190357 SOFTWARE STANDARDS VALIDATION GROUP 00200357 BUILDING 225 RM A266 00210357 GAITHERSBURG, MD 20899 00220357 00230357 00240357 00250357 BE *** BBCCOMNT ******00260357 BB *** BBCINITA ******00270357 SPECIFICATION STATEMENTS 00280357 00290357 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420357 FOR IDENTIFYING THE TEST ENVIRONMENT 00430357 00440357 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450357 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460357 Z03 ZPROG = 'PROGRAM NAME' 00470357 Z04 ZDATE = 'DATE OF TEST' 00480357 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490357 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500357 Z07 ZNAME = 'NAME OF USER' 00510357 Z08 ZTAPE = 'TAPE OWNER/ID' 00520357 Z09 ZTAPED = 'DATE TAPE COPIED' 00530357 00540357 00830357 WRITE REPORT TITLE 00840357 00850357 00930357 * HEADER FOR SEGMENT 159 WRITTEN 00940357 WRITE DETAIL REPORT HEADERS 00990357 01000357 01070357 * TEST OF AMOD 01080357 01090357 * 01120357 T001 TEST 1 FIRST VALUE ZERO, SECOND NON-ZERO 01130357 02680357 * TEST OF MOD 02690357 02700357 * 02730357 T012 TEST 12 FIRST VALUE ZERO, SECOND NON-ZERO 02740357 04180357 BB *** BBCSUM0 ******04190357 WRITE OUT TEST SUMMARY 04200357 04210357 WRITE OUT REPORT FOOTINGS 04330357 04340357 FORMATS FOR TEST DETAIL LINES 04400357 04410357 FORMAT STATEMENTS FOR PAGE HEADERS 04610357 04620357 04750357 FORMAT STATEMENTS FOR REPORT FOOTINGS 04760357 04770357 04820357 FORMAT STATEMENTS FOR RUN SUMMARY 04830357 04840357 04910357 **** END OF TEST SEGMENT 159 04920357

**********00010359 * FORTRAN 77 00020359 FM359 XSIGN - (161) 00030359 * 00040359 **********00050359 GENERAL PURPOSE SUBSET REF00060359 * TEST INTRINSIC FUNCTION - SIGN, ISIGN - (TRANSFER 15.3 00070359 OF SIGN - SIGN OF A2 TIMES ABS(A1) ) (TABLE 5)00080359 * 00090359 BB* **** BBCCOMNT *****00100359 00110359 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120359 VERSION 2.1 00130359 00140359 00150359 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160359 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170359 SOFTWARE STANDARDS VALIDATION GROUP 00180359 BUILDING 225 RM A266 00190359 GAITHERSBURG, MD 20899 00200359 00210359 00220359 00230359 BE *** BBCCOMNT ******00240359 BB *** BBCINITA ******00250359 SPECIFICATION STATEMENTS 00260359 00270359 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400359 FOR IDENTIFYING THE TEST ENVIRONMENT 00410359 00420359 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430359 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440359 Z03 ZPROG = 'PROGRAM NAME' 00450359 Z04 ZDATE = 'DATE OF TEST' 00460359 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470359 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480359 Z07 ZNAME = 'NAME OF USER' 00490359 Z08 ZTAPE = 'TAPE OWNER/ID' 00500359 Z09 ZTAPED = 'DATE TAPE COPIED' 00510359 00520359 00810359 WRITE REPORT TITLE 00820359 00830359 00910359 * HEADER FOR SEGMENT 161 00920359 WRITE DETAIL REPORT HEADERS 00980359 00990359 01060359 * TEST OF SIGN 01070359 01080359 * 02640359 TEST OF ISIGN 02650359 * 02660359 02690359 T012 TEST 12 BOTH VALUES ZERO 02700359 * 04130359 BB* **** BBCSUM0 *****04140359 WRITE OUT TEST SUMMARY 04150359 04160359 WRITE OUT REPORT FOOTINGS 04280359 04290359 FORMATS FOR TEST DETAIL LINES 04350359 04360359 FORMAT STATEMENTS FOR PAGE HEADERS 04560359 04570359 04700359 FORMAT STATEMENTS FOR REPORT FOOTINGS 04710359 04720359 04770359 FORMAT STATEMENTS FOR RUN SUMMARY 04780359 04790359 04860359 * END OF TEST SEGMENT 161 04870359

**********00010360 * FORTRAN 77 00020360 FM360 XDIM - (163) 00030360 * 00040360 **********00050360 GENERAL PURPOSE SUBSET REF00060360 * TEST INTRINSIC FUNCTION DIM AND IDIM--POSITIVE 15.3 00070360 DIFFERENCE, WHICH IS DEFINED AS A1 - MIN(A1,A2) (TABLE 5)00080360 * 00090360 BB* **** BBCCOMNT *****00100360 00110360 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120360 VERSION 2.1 00130360 00140360 00150360 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160360 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170360 SOFTWARE STANDARDS VALIDATION GROUP 00180360 BUILDING 225 RM A266 00190360 GAITHERSBURG, MD 20899 00200360 00210360 00220360 00230360 BE *** BBCCOMNT ******00240360 BB *** BBCINITA ******00250360 SPECIFICATION STATEMENTS 00260360 00270360 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400360 FOR IDENTIFYING THE TEST ENVIRONMENT 00410360 00420360 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430360 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440360 Z03 ZPROG = 'PROGRAM NAME' 00450360 Z04 ZDATE = 'DATE OF TEST' 00460360 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470360 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480360 Z07 ZNAME = 'NAME OF USER' 00490360 Z08 ZTAPE = 'TAPE OWNER/ID' 00500360 Z09 ZTAPED = 'DATE TAPE COPIED' 00510360 00520360 00810360 WRITE REPORT TITLE 00820360 00830360 00910360 * HEADER FOR SEGMENT 163 00920360 WRITE DETAIL REPORT HEADERS 00980360 00990360 01060360 * TEST OF DIM 01070360 01080360 * 02090360 TEST OF IDIM 02100360 * 02110360 03050360 BB *** BBCSUM0 ******03060360 WRITE OUT TEST SUMMARY 03070360 03080360 WRITE OUT REPORT FOOTINGS 03200360 03210360 FORMATS FOR TEST DETAIL LINES 03270360 03280360 FORMAT STATEMENTS FOR PAGE HEADERS 03480360 03490360 03620360 FORMAT STATEMENTS FOR REPORT FOOTINGS 03630360 03640360 03690360 FORMAT STATEMENTS FOR RUN SUMMARY 03700360 03710360 03780360 * 03810360 * END OF TEST SEGMENT 163 03820360

**********00010361 * FORTRAN 77 00020361 FM361 XMAX - (165) 00030361 * 00040361 **********00050361 GENERAL PURPOSE SUBSET REF00060361 * TEST OF INTRINSIC FUNCTIONS AMAX0,AMAX1,MAX0,MAX1 15.3 00070361 CHOOSING LARGEST VALUE (TABLE 5)00080361 * 00090361 BB* **** BBCCOMNT *****00100361 00110361 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120361 VERSION 2.1 00130361 00140361 00150361 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160361 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170361 SOFTWARE STANDARDS VALIDATION GROUP 00180361 BUILDING 225 RM A266 00190361 GAITHERSBURG, MD 20899 00200361 00210361 00220361 00230361 BE *** BBCCOMNT ******00240361 BB *** BBCINITA ******00250361 SPECIFICATION STATEMENTS 00260361 00270361 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400361 FOR IDENTIFYING THE TEST ENVIRONMENT 00410361 00420361 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430361 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440361 Z03 ZPROG = 'PROGRAM NAME' 00450361 Z04 ZDATE = 'DATE OF TEST' 00460361 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470361 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480361 Z07 ZNAME = 'NAME OF USER' 00490361 Z08 ZTAPE = 'TAPE OWNER/ID' 00500361 Z09 ZTAPED = 'DATE TAPE COPIED' 00510361 00520361 00810361 WRITE REPORT TITLE 00820361 00830361 00910361 * HEADER FOR SEGMENT 165 00920361 WRITE DETAIL REPORT HEADERS 00990361 01000361 01070361 * TEST OF AMAX0 01080361 01090361 * 02820361 TEST OF AMAX1 02860361 * 02870361 04600361 * TEST OF MAX0 04640361 * 04650361 * 04680361 T025 TEST 25 BOTH VALUES ZERO 04690361 06270361 * TEST OF MAX1 06310361 06320361 * 07930361 BB* **** BBCSUM0 *****07940361 WRITE OUT TEST SUMMARY 07950361 07960361 WRITE OUT REPORT FOOTINGS 08080361 08090361 FORMATS FOR TEST DETAIL LINES 08150361 08160361 FORMAT STATEMENTS FOR PAGE HEADERS 08360361 08370361 08500361 FORMAT STATEMENTS FOR REPORT FOOTINGS 08510361 08520361 08570361 FORMAT STATEMENTS FOR RUN SUMMARY 08580361 08590361 08660361 *** END OF TEST SEGMENT 165 08670361

**********00010362 * FORTRAN 77 00020362 FM362 XMIN - (167) 00030362 * 00040362 **********00050362 GENERAL PURPOSE SUBSET REF00060362 * TEST INTRINSIC FUNCTIONS AMIN0,AMIN1,MIN0,MIN1 15.3 00070362 CHOOSING SMALLEST VALUE. (TABLE 5)00080362 * 00090362 BB* **** BBCCOMNT *****00100362 00110362 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120362 VERSION 2.1 00130362 00140362 00150362 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160362 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170362 SOFTWARE STANDARDS VALIDATION GROUP 00180362 BUILDING 225 RM A266 00190362 GAITHERSBURG, MD 20899 00200362 00210362 00220362 00230362 BE *** BBCCOMNT ******00240362 BB *** BBCINITA ******00250362 SPECIFICATION STATEMENTS 00260362 00270362 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00400362 FOR IDENTIFYING THE TEST ENVIRONMENT 00410362 00420362 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00430362 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00440362 Z03 ZPROG = 'PROGRAM NAME' 00450362 Z04 ZDATE = 'DATE OF TEST' 00460362 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00470362 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00480362 Z07 ZNAME = 'NAME OF USER' 00490362 Z08 ZTAPE = 'TAPE OWNER/ID' 00500362 Z09 ZTAPED = 'DATE TAPE COPIED' 00510362 00520362 00810362 WRITE REPORT TITLE 00820362 00830362 00910362 * HEADER FOR SEGMENT 167 00920362 WRITE DETAIL REPORT HEADERS 00990362 01000362 01070362 * TEST OF AMIN0 01080362 01090362 * 02680362 TEST OF AMIN1 02720362 * 02730362 04460362 * TEST OF MIN0 04500362 04510362 * 06130362 TEST OF MIN1 06170362 * 06180362 * 07800362 BB *** BBCSUM0 ******07810362 WRITE OUT TEST SUMMARY 07820362 07830362 WRITE OUT REPORT FOOTINGS 07950362 07960362 FORMATS FOR TEST DETAIL LINES 08020362 08030362 FORMAT STATEMENTS FOR PAGE HEADERS 08230362 08240362 08370362 FORMAT STATEMENTS FOR REPORT FOOTINGS 08380362 08390362 08440362 FORMAT STATEMENTS FOR RUN SUMMARY 08450362 08460362 08530362 **** END OF TEST SEGMENT 167 08540362

**********00010363 * FORTRAN 77 00020363 FM363 X66MX - (171) 00030363 * 00040363 **********00050363 GENERAL PURPOSE SUBSET REF00060363 * TEST THAT ALL INTRINSIC FUNCTIONS WOULD ACCEPT 15.3 00070363 ANY EXPRESSION OF THE TYPE SPECIFIED IN THE (TABLE 5)00080363 * INTRINSIC FUNCTION TABLE - ANS REFS - 15.10 00090363 00100363 * GENERAL COMMENTS 00110363 SEGMENTS XINT, XREAL, XAINT, XABS, XAMOD, 00120363 * XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130363 00140363 BB *** BBCCOMNT ******00150363 00160363 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170363 VERSION 2.1 00180363 00190363 00200363 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210363 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220363 SOFTWARE STANDARDS VALIDATION GROUP 00230363 BUILDING 225 RM A266 00240363 GAITHERSBURG, MD 20899 00250363 00260363 00270363 00280363 BE *** BBCCOMNT ******00290363 BB *** BBCINITA ******00300363 SPECIFICATION STATEMENTS 00310363 00320363 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450363 FOR IDENTIFYING THE TEST ENVIRONMENT 00460363 00470363 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480363 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490363 Z03 ZPROG = 'PROGRAM NAME' 00500363 Z04 ZDATE = 'DATE OF TEST' 00510363 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520363 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530363 Z07 ZNAME = 'NAME OF USER' 00540363 Z08 ZTAPE = 'TAPE OWNER/ID' 00550363 Z09 ZTAPED = 'DATE TAPE COPIED' 00560363 00570363 00860363 WRITE REPORT TITLE 00870363 00880363 00960363 * HEADER FOR SEGMENT 171 WRITTEN 00970363 WRITE DETAIL REPORT HEADERS 01030363 01040363 01110363 * TEST OF INTRINSIC FUNCTIONS IN EXPRESSIONS 01120363 01130363 T001 TEST 1 01140363 * 03080363 BB* **** BBCSUM0 *****03090363 WRITE OUT TEST SUMMARY 03100363 03110363 WRITE OUT REPORT FOOTINGS 03230363 03240363 FORMATS FOR TEST DETAIL LINES 03300363 03310363 FORMAT STATEMENTS FOR PAGE HEADERS 03510363 03520363 03650363 FORMAT STATEMENTS FOR REPORT FOOTINGS 03660363 03670363 03720363 FORMAT STATEMENTS FOR RUN SUMMARY 03730363 03740363 03810363 **** END OF TEST SEGMENT 171 03820363

**********00010364 * FORTRAN 77 00020364 FM364 XRMNX - (172) 00030364 * 00040364 **********00050364 GENERAL PURPOSE SUBSET REF 00060364 * TESTS THE USE OF MIXED MODE ARITHMETIC 15.10 00070364 EXPRESSIONS CONTAINING REFERENCES TO THE 15.3 00080364 * INTRINSIC FUNCTIONS 6.1.4 00090364 00100364 * GENERAL COMMENTS 00110364 SEGMENTS TESTING XINT, XREAL, XAINT, XABS, XAMOD, 00120364 * XSIGN, XDIM, XMAX, XMIN ASSUMED WORKING 00130364 00140364 BB *** BBCCOMNT ******00150364 00160364 1978 FORTRAN COMPILER VALIDATION SYSTEM 00170364 VERSION 2.1 00180364 00190364 00200364 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00210364 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00220364 SOFTWARE STANDARDS VALIDATION GROUP 00230364 BUILDING 225 RM A266 00240364 GAITHERSBURG, MD 20899 00250364 00260364 00270364 00280364 BE *** BBCCOMNT ******00290364 BB *** BBCINITA ******00300364 SPECIFICATION STATEMENTS 00310364 00320364 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00450364 FOR IDENTIFYING THE TEST ENVIRONMENT 00460364 00470364 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00480364 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00490364 Z03 ZPROG = 'PROGRAM NAME' 00500364 Z04 ZDATE = 'DATE OF TEST' 00510364 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00520364 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00530364 Z07 ZNAME = 'NAME OF USER' 00540364 Z08 ZTAPE = 'TAPE OWNER/ID' 00550364 Z09 ZTAPED = 'DATE TAPE COPIED' 00560364 00570364 * O U T P U T T A P E ASSIGNMENT STATEMENT. NO INPUT TAPE. 00820364 00860364 BB *** BBCHED0A ******00870364 00880364 WRITE REPORT TITLE 00890364 00900364 * HEADER FOR SEGMENT 172 WRITTEN 00980364 * 01030364 BB *** BBCHED0B ******01040364 WRITE DETAIL REPORT HEADERS 01050364 01060364 03390364 BB *** BBCSUM0 ******03400364 WRITE OUT TEST SUMMARY 03410364 03420364 WRITE OUT REPORT FOOTINGS 03540364 03550364 FORMATS FOR TEST DETAIL LINES 03610364 03620364 FORMAT STATEMENTS FOR PAGE HEADERS 03820364 03830364 03960364 FORMAT STATEMENTS FOR REPORT FOOTINGS 03970364 03980364 04030364 FORMAT STATEMENTS FOR RUN SUMMARY 04040364 04050364 * 04120364 * END OF TEST SEGMENT 172 04130364

**********00010368 * FORTRAN 77 00020368 FM368 00030368 * XSQRT - (175) 00040368 00050368 **********00060368 * GENERAL PURPOSE SUBSET REF 00070368 TEST INTRINSIC FUNCTION SQRT 15.3 00080368 * TABLE 5 00090368 00100368 BB *** BBCCOMNT ******00110368 00120368 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130368 VERSION 2.1 00140368 00150368 00160368 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170368 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180368 SOFTWARE STANDARDS VALIDATION GROUP 00190368 BUILDING 225 RM A266 00200368 GAITHERSBURG, MD 20899 00210368 00220368 00230368 00240368 BE *** BBCCOMNT ******00250368 BB *** BBCINITA ******00260368 SPECIFICATION STATEMENTS 00270368 00280368 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410368 FOR IDENTIFYING THE TEST ENVIRONMENT 00420368 00430368 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440368 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450368 Z03 ZPROG = 'PROGRAM NAME' 00460368 Z04 ZDATE = 'DATE OF TEST' 00470368 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480368 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490368 Z07 ZNAME = 'NAME OF USER' 00500368 Z08 ZTAPE = 'TAPE OWNER/ID' 00510368 Z09 ZTAPED = 'DATE TAPE COPIED' 00520368 00530368 00820368 WRITE REPORT TITLE 00830368 00840368 00920368 * HEADER FOR SEGMENT 175 00930368 WRITE DETAIL REPORT HEADERS 00990368 01000368 01070368 T001 TEST 1 FIXED POINT OF FUNCTION 01080368 * 02690368 BB* **** BBCSUM0 *****02700368 WRITE OUT TEST SUMMARY 02710368 02720368 WRITE OUT REPORT FOOTINGS 02840368 02850368 FORMATS FOR TEST DETAIL LINES 02910368 02920368 FORMAT STATEMENTS FOR PAGE HEADERS 03120368 03130368 03260368 FORMAT STATEMENTS FOR REPORT FOOTINGS 03270368 03280368 03330368 FORMAT STATEMENTS FOR RUN SUMMARY 03340368 03350368 03420368 *** END OF TEST SEGMENT 175 03430368

**********00010369 * FORTRAN 77 00020369 FM369 00030369 * XEXP - (178) 00040369 00050369 **********00060369 * GENERAL PURPOSE SUBSET REF 00070369 TEST INTRINSIC FUNCTION EXP 15.3 00080369 * TABLE 5 00090369 00100369 BB *** BBCCOMNT ******00110369 00120369 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130369 VERSION 2.1 00140369 00150369 00160369 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170369 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180369 SOFTWARE STANDARDS VALIDATION GROUP 00190369 BUILDING 225 RM A266 00200369 GAITHERSBURG, MD 20899 00210369 00220369 00230369 00240369 BE *** BBCCOMNT ******00250369 BB *** BBCINITA ******00260369 SPECIFICATION STATEMENTS 00270369 00280369 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410369 FOR IDENTIFYING THE TEST ENVIRONMENT 00420369 00430369 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440369 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450369 Z03 ZPROG = 'PROGRAM NAME' 00460369 Z04 ZDATE = 'DATE OF TEST' 00470369 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480369 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490369 Z07 ZNAME = 'NAME OF USER' 00500369 Z08 ZTAPE = 'TAPE OWNER/ID' 00510369 Z09 ZTAPED = 'DATE TAPE COPIED' 00520369 00530369 00820369 WRITE REPORT TITLE 00830369 00840369 00920369 * HEADER FOR SEGMENT 178 00930369 WRITE DETAIL REPORT HEADERS 00990369 01000369 01070369 T001 TEST 1 ZERO SINCE EXP(0.0) = 1 01080369 * TESTS 3 THRU 5 - POSITIVE VALUES 01330369 T003 TEST 3 01340369 TESTS 7 THRU 10 - EXPRESSION PRESENTED TO EXP 01830369 T007* TEST 7 01840369 * TESTS 11 THRU 14 - VALUES CLOSE TO ONE 02350369 T011 TEST 11 02360369 02610369 * ADVANCE TO TOP-OF-PAGE AND WRITE HEADERS 02620369 02660369 T013 TEST 13 02670369 * TESTS 15 THRU 19 - VALUES CLOSE TO 1/E 02920369 T015 TEST 15 02930369 WRITE OUT TEST SUMMARY 03590369 03600369 WRITE OUT REPORT FOOTINGS 03720369 03730369 FORMATS FOR TEST DETAIL LINES 03790369 03800369 FORMAT STATEMENTS FOR PAGE HEADERS 04000369 04010369 04140369 FORMAT STATEMENTS FOR REPORT FOOTINGS 04150369 04160369 04210369 FORMAT STATEMENTS FOR RUN SUMMARY 04220369 04230369 04300369 **** END OF TEST SEGMENT 178 04310369

**********00010370 * FORTRAN 77 00020370 FM370 00030370 * XALOG - (181) 00040370 00050370 **********00060370 * GENERAL PURPOSE SUBSET REF 00070370 TEST INTRINSIC FUNCTION ALOG 15.3 00080370 * TABLE 5 00090370 00100370 * 00110370 BB* **** BBCCOMNT *****00120370 00130370 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140370 VERSION 2.1 00150370 00160370 00170370 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180370 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190370 SOFTWARE STANDARDS VALIDATION GROUP 00200370 BUILDING 225 RM A266 00210370 GAITHERSBURG, MD 20899 00220370 00230370 00240370 00250370 BE *** BBCCOMNT ******00260370 BB *** BBCINITA ******00270370 SPECIFICATION STATEMENTS 00280370 00290370 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00420370 FOR IDENTIFYING THE TEST ENVIRONMENT 00430370 00440370 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00450370 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00460370 Z03 ZPROG = 'PROGRAM NAME' 00470370 Z04 ZDATE = 'DATE OF TEST' 00480370 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00490370 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00500370 Z07 ZNAME = 'NAME OF USER' 00510370 Z08 ZTAPE = 'TAPE OWNER/ID' 00520370 Z09 ZTAPED = 'DATE TAPE COPIED' 00530370 00540370 00830370 WRITE REPORT TITLE 00840370 00850370 HEADER FOR SEGMENT 181 00930370 WRITE DETAIL REPORT HEADERS 00990370 01000370 * 01070370 T001 TEST 1 ONE, SINCE LN(1.0) = 0.0 01080370 03100370 BB *** BBCSUM0 ******03110370 WRITE OUT TEST SUMMARY 03120370 03130370 WRITE OUT REPORT FOOTINGS 03250370 03260370 FORMATS FOR TEST DETAIL LINES 03320370 03330370 FORMAT STATEMENTS FOR PAGE HEADERS 03530370 03540370 03670370 FORMAT STATEMENTS FOR REPORT FOOTINGS 03680370 03690370 03740370 FORMAT STATEMENTS FOR RUN SUMMARY 03750370 03760370 * 03830370 ** END OF TEST SEGMENT 181 03840370

**********00010371 * FORTRAN 77 00020371 FM371 00030371 * XALG10 - (184) 00040371 00050371 **********00060371 * GENERAL PURPOSE SUBSET REF 00070371 TEST INTRINSIC FUNCTION ALOG10 15.3 00080371 * TABLE 5 00090371 00100371 BB *** BBCCOMNT ******00110371 00120371 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130371 VERSION 2.1 00140371 00150371 00160371 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170371 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180371 SOFTWARE STANDARDS VALIDATION GROUP 00190371 BUILDING 225 RM A266 00200371 GAITHERSBURG, MD 20899 00210371 00220371 00230371 00240371 BE *** BBCCOMNT ******00250371 BB *** BBCINITA ******00260371 SPECIFICATION STATEMENTS 00270371 00280371 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410371 FOR IDENTIFYING THE TEST ENVIRONMENT 00420371 00430371 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440371 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450371 Z03 ZPROG = 'PROGRAM NAME' 00460371 Z04 ZDATE = 'DATE OF TEST' 00470371 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480371 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490371 Z07 ZNAME = 'NAME OF USER' 00500371 Z08 ZTAPE = 'TAPE OWNER/ID' 00510371 Z09 ZTAPED = 'DATE TAPE COPIED' 00520371 00530371 00820371 WRITE REPORT TITLE 00830371 00840371 00920371 * HEADER FOR SEGMENT 184 00930371 WRITE DETAIL REPORT HEADERS 00990371 01000371 01070371 T001 TEST 1 ONE, SINCE LN(1.0) = 0.0 01080371 * 03120371 BB* **** BBCSUM0 *****03130371 WRITE OUT TEST SUMMARY 03140371 03150371 WRITE OUT REPORT FOOTINGS 03270371 03280371 FORMATS FOR TEST DETAIL LINES 03340371 03350371 FORMAT STATEMENTS FOR PAGE HEADERS 03550371 03560371 03690371 FORMAT STATEMENTS FOR REPORT FOOTINGS 03700371 03710371 03760371 FORMAT STATEMENTS FOR RUN SUMMARY 03770371 03780371 03850371 *** END OF TEST SEGMENT 184 03860371

**********00010372 * FORTRAN 77 00020372 FM372 00030372 * XSIN - (186) 00040372 00050372 **********00060372 * GENERAL PURPOSE SUBSET REF 00070372 TEST INTRINSIC FUNCTION SIN 15.3 00080372 * TABLE 5 00090372 00100372 BB *** BBCCOMNT ******00110372 00120372 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130372 VERSION 2.1 00140372 00150372 00160372 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170372 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180372 SOFTWARE STANDARDS VALIDATION GROUP 00190372 BUILDING 225 RM A266 00200372 GAITHERSBURG, MD 20899 00210372 00220372 00230372 00240372 BE *** BBCCOMNT ******00250372 BB *** BBCINITA ******00260372 SPECIFICATION STATEMENTS 00270372 00280372 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410372 FOR IDENTIFYING THE TEST ENVIRONMENT 00420372 00430372 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440372 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450372 Z03 ZPROG = 'PROGRAM NAME' 00460372 Z04 ZDATE = 'DATE OF TEST' 00470372 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480372 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490372 Z07 ZNAME = 'NAME OF USER' 00500372 Z08 ZTAPE = 'TAPE OWNER/ID' 00510372 Z09 ZTAPED = 'DATE TAPE COPIED' 00520372 00530372 00820372 WRITE REPORT TITLE 00830372 00840372 00920372 * HEADER FOR SEGMENT 186 00930372 WRITE DETAIL REPORT HEADERS 00990372 01000372 01070372 * 01090372 T001 TEST 1 ZERO (0.0), SINCE SIN(0)=0 01100372 03370372 BB *** BBCSUM0 ******03380372 WRITE OUT TEST SUMMARY 03390372 03400372 WRITE OUT REPORT FOOTINGS 03520372 03530372 FORMATS FOR TEST DETAIL LINES 03590372 03600372 FORMAT STATEMENTS FOR PAGE HEADERS 03800372 03810372 03940372 FORMAT STATEMENTS FOR REPORT FOOTINGS 03950372 03960372 04010372 FORMAT STATEMENTS FOR RUN SUMMARY 04020372 04030372 04100372 **** END OF TEST SEGMENT 186 04110372

**********00010373 * FORTRAN 77 00020373 FM373 00030373 * XCOS - (189) 00040373 00050373 **********00060373 * GENERAL PURPOSE SUBSET REF 00070373 TEST INTRINSIC FUNCTION COS 15.3 00080373 * TABLE 5 00090373 00100373 BB *** BBCCOMNT ******00110373 00120373 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130373 VERSION 2.1 00140373 00150373 00160373 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170373 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180373 SOFTWARE STANDARDS VALIDATION GROUP 00190373 BUILDING 225 RM A266 00200373 GAITHERSBURG, MD 20899 00210373 00220373 00230373 00240373 BE *** BBCCOMNT ******00250373 BB *** BBCINITA ******00260373 SPECIFICATION STATEMENTS 00270373 00280373 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410373 FOR IDENTIFYING THE TEST ENVIRONMENT 00420373 00430373 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440373 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450373 Z03 ZPROG = 'PROGRAM NAME' 00460373 Z04 ZDATE = 'DATE OF TEST' 00470373 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480373 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490373 Z07 ZNAME = 'NAME OF USER' 00500373 Z08 ZTAPE = 'TAPE OWNER/ID' 00510373 Z09 ZTAPED = 'DATE TAPE COPIED' 00520373 00530373 00820373 WRITE REPORT TITLE 00830373 00840373 00920373 * HEADER FOR SEGMENT 189 00930373 WRITE DETAIL REPORT HEADERS 00990373 01000373 01070373 * 01090373 T001 TEST 1 ZERO (0.0), SINCE COS(0)=1 01100373 03500373 BB *** BBCSUM0 ******03510373 WRITE OUT TEST SUMMARY 03520373 03530373 WRITE OUT REPORT FOOTINGS 03650373 03660373 FORMATS FOR TEST DETAIL LINES 03720373 03730373 FORMAT STATEMENTS FOR PAGE HEADERS 03930373 03940373 04070373 FORMAT STATEMENTS FOR REPORT FOOTINGS 04080373 04090373 04140373 FORMAT STATEMENTS FOR RUN SUMMARY 04150373 04160373 04230373 **** END OF TEST SEGMENT 189 04240373

**********00010374 * FORTRAN 77 00020374 FM374 00030374 * XTAN - (191) 00040374 00050374 **********00060374 * GENERAL PURPOSE SUBSET REF 00070374 TEST INTRINSIC FUNCTION TAN 15.3 00080374 * TABLE 5 00090374 00100374 BB *** BBCCOMNT ******00110374 00120374 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130374 VERSION 2.1 00140374 00150374 00160374 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170374 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180374 SOFTWARE STANDARDS VALIDATION GROUP 00190374 BUILDING 225 RM A266 00200374 GAITHERSBURG, MD 20899 00210374 00220374 00230374 00240374 BE *** BBCCOMNT ******00250374 BB *** BBCINITA ******00260374 SPECIFICATION STATEMENTS 00270374 00280374 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410374 FOR IDENTIFYING THE TEST ENVIRONMENT 00420374 00430374 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440374 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450374 Z03 ZPROG = 'PROGRAM NAME' 00460374 Z04 ZDATE = 'DATE OF TEST' 00470374 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480374 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490374 Z07 ZNAME = 'NAME OF USER' 00500374 Z08 ZTAPE = 'TAPE OWNER/ID' 00510374 Z09 ZTAPED = 'DATE TAPE COPIED' 00520374 00530374 00820374 WRITE REPORT TITLE 00830374 00840374 00920374 * HEADER FOR SEGMENT 191 00930374 WRITE DETAIL REPORT HEADERS 00990374 01000374 01070374 * 01090374 T001 TEST 1 ZERO (0.0), SINCE TAN(0) = 0 01100374 02880374 BB *** BBCSUM0 ******02890374 WRITE OUT TEST SUMMARY 02900374 02910374 WRITE OUT REPORT FOOTINGS 03030374 03040374 FORMATS FOR TEST DETAIL LINES 03100374 03110374 FORMAT STATEMENTS FOR PAGE HEADERS 03310374 03320374 03450374 FORMAT STATEMENTS FOR REPORT FOOTINGS 03460374 03470374 03520374 FORMAT STATEMENTS FOR RUN SUMMARY 03530374 03540374 03610374 **** END OF TEST SEGMENT 191 03620374

**********00010375 * FORTRAN 77 00020375 FM375 00030375 * XASIN - (193) 00040375 00050375 **********00060375 * GENERAL PURPOSE SUBSET REF 00070375 TEST INTRINSIC FUNCTION ASIN, ACOS 15.3 00080375 * TABLE 5 00090375 00100375 BB *** BBCCOMNT ******00110375 00120375 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130375 VERSION 2.1 00140375 00150375 00160375 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170375 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180375 SOFTWARE STANDARDS VALIDATION GROUP 00190375 BUILDING 225 RM A266 00200375 GAITHERSBURG, MD 20899 00210375 00220375 00230375 00240375 BE *** BBCCOMNT ******00250375 BB *** BBCINITA ******00260375 SPECIFICATION STATEMENTS 00270375 00280375 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410375 FOR IDENTIFYING THE TEST ENVIRONMENT 00420375 00430375 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440375 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450375 Z03 ZPROG = 'PROGRAM NAME' 00460375 Z04 ZDATE = 'DATE OF TEST' 00470375 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480375 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490375 Z07 ZNAME = 'NAME OF USER' 00500375 Z08 ZTAPE = 'TAPE OWNER/ID' 00510375 Z09 ZTAPED = 'DATE TAPE COPIED' 00520375 00530375 00820375 WRITE REPORT TITLE 00830375 00840375 00920375 * HEADER FOR SEGMENT 193 00930375 WRITE DETAIL REPORT HEADERS 00990375 01000375 01070375 * 01100375 T001 TEST 1 -1 TO CHECK PRINCIPAL VALUE AT ENDPOINTS 01110375 01730375 * 01760375 T006 TEST 6 -1 TO TEST PRINCIPAL VALUE AT ENDPOINTS 01770375 02650375 BB *** BBCSUM0 ******02660375 WRITE OUT TEST SUMMARY 02670375 02680375 WRITE OUT REPORT FOOTINGS 02800375 02810375 FORMATS FOR TEST DETAIL LINES 02870375 02880375 FORMAT STATEMENTS FOR PAGE HEADERS 03080375 03090375 03220375 FORMAT STATEMENTS FOR REPORT FOOTINGS 03230375 03240375 03290375 FORMAT STATEMENTS FOR RUN SUMMARY 03300375 03310375 * 03380375 * END OF TEST SEGMENT 193 03390375

**********00010376 * FORTRAN 77 00020376 FM376 00030376 * XATAN - (195) 00040376 00050376 **********00060376 * GENERAL PURPOSE SUBSET REF 00070376 TEST INTRINSIC FUNCTION ATAN, ATAN2 15.3 00080376 * INTRINSIC FUNCTION SQRT ASSUMED WORKING TABLE 5 00090376 00100376 BB *** BBCCOMNT ******00110376 00120376 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130376 VERSION 2.1 00140376 00150376 00160376 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170376 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180376 SOFTWARE STANDARDS VALIDATION GROUP 00190376 BUILDING 225 RM A266 00200376 GAITHERSBURG, MD 20899 00210376 00220376 00230376 00240376 BE *** BBCCOMNT ******00250376 BB *** BBCINITA ******00260376 SPECIFICATION STATEMENTS 00270376 00280376 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410376 FOR IDENTIFYING THE TEST ENVIRONMENT 00420376 00430376 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440376 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450376 Z03 ZPROG = 'PROGRAM NAME' 00460376 Z04 ZDATE = 'DATE OF TEST' 00470376 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480376 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490376 Z07 ZNAME = 'NAME OF USER' 00500376 Z08 ZTAPE = 'TAPE OWNER/ID' 00510376 Z09 ZTAPED = 'DATE TAPE COPIED' 00520376 00530376 00820376 WRITE REPORT TITLE 00830376 00840376 00920376 * HEADER FOR SEGMENT 195 00930376 WRITE DETAIL REPORT HEADERS 00990376 01000376 01070376 * 01090376 01110376 T001 TEST 1 TEST LARGE VALUES TO TEST SINGULARITY 01120376 * 01860376 02840376 BB *** BBCSUM0 ******02850376 WRITE OUT TEST SUMMARY 02860376 02870376 WRITE OUT REPORT FOOTINGS 02990376 03000376 FORMATS FOR TEST DETAIL LINES 03060376 03070376 FORMAT STATEMENTS FOR PAGE HEADERS 03270376 03280376 03410376 FORMAT STATEMENTS FOR REPORT FOOTINGS 03420376 03430376 03480376 FORMAT STATEMENTS FOR RUN SUMMARY 03490376 03500376 * 03570376 ** END OF TEST SEGMENT 195 03580376

**********00010377 * FORTRAN 77 00020377 FM377 00030377 * XSINH - (197) 00040377 00050377 **********00060377 * GENERAL PURPOSE SUBSET REF 00070377 TEST INTRINSIC FUNCTION SINH, COSH 15.3 00080377 * TABLE 5 00090377 00100377 BB *** BBCCOMNT ******00110377 00120377 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130377 VERSION 2.1 00140377 00150377 00160377 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170377 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180377 SOFTWARE STANDARDS VALIDATION GROUP 00190377 BUILDING 225 RM A266 00200377 GAITHERSBURG, MD 20899 00210377 00220377 00230377 00240377 BE *** BBCCOMNT ******00250377 BB *** BBCINITA ******00260377 SPECIFICATION STATEMENTS 00270377 00280377 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410377 FOR IDENTIFYING THE TEST ENVIRONMENT 00420377 00430377 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440377 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450377 Z03 ZPROG = 'PROGRAM NAME' 00460377 Z04 ZDATE = 'DATE OF TEST' 00470377 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480377 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490377 Z07 ZNAME = 'NAME OF USER' 00500377 Z08 ZTAPE = 'TAPE OWNER/ID' 00510377 Z09 ZTAPED = 'DATE TAPE COPIED' 00520377 00530377 00820377 WRITE REPORT TITLE 00830377 00840377 00920377 * HEADER FOR SEGMENT 197 00930377 WRITE DETAIL REPORT HEADERS 00990377 01000377 01070377 * 01100377 T001 TEST 1 TEST AT ZERO (0.0) 01110377 01980377 * 02020377 02050377 T008 TEST 8 ZERO (0.0) 02060377 * TO BOTH FUNCTIONS IN AN EXPRESSION 02940377 * 03060377 BB *** BBCSUM0 ******03070377 WRITE OUT TEST SUMMARY 03080377 03090377 WRITE OUT REPORT FOOTINGS 03210377 03220377 FORMATS FOR TEST DETAIL LINES 03280377 03290377 FORMAT STATEMENTS FOR PAGE HEADERS 03490377 03500377 03630377 FORMAT STATEMENTS FOR REPORT FOOTINGS 03640377 03650377 03700377 FORMAT STATEMENTS FOR RUN SUMMARY 03710377 03720377 03790377 **** END OF TEST SEGMENT 197 03800377

**********00010378 * FORTRAN 77 00020378 FM378 00030378 * XTANH - (199) 00040378 00050378 **********00060378 * GENERAL PURPOSE SUBSET REF 00070378 TEST INTRINSIC FUNCTION TANH 15.3 00080378 * TABLE 5 00090378 00100378 BB *** BBCCOMNT ******00110378 00120378 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130378 VERSION 2.1 00140378 00150378 00160378 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170378 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180378 SOFTWARE STANDARDS VALIDATION GROUP 00190378 BUILDING 225 RM A266 00200378 GAITHERSBURG, MD 20899 00210378 00220378 00230378 00240378 BE *** BBCCOMNT ******00250378 BB *** BBCINITA ******00260378 SPECIFICATION STATEMENTS 00270378 00280378 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410378 FOR IDENTIFYING THE TEST ENVIRONMENT 00420378 00430378 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440378 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450378 Z03 ZPROG = 'PROGRAM NAME' 00460378 Z04 ZDATE = 'DATE OF TEST' 00470378 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480378 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490378 Z07 ZNAME = 'NAME OF USER' 00500378 Z08 ZTAPE = 'TAPE OWNER/ID' 00510378 Z09 ZTAPED = 'DATE TAPE COPIED' 00520378 00530378 00820378 WRITE REPORT TITLE 00830378 00840378 00920378 * HEADER FOR SEGMENT 199 00930378 WRITE DETAIL REPORT HEADERS 00990378 01000378 01070378 T001 TEST 1 TEST AT ZERO (0.0) 01080378 * 02220378 BB* **** BBCSUM0 *****02230378 WRITE OUT TEST SUMMARY 02240378 02250378 WRITE OUT REPORT FOOTINGS 02370378 02380378 FORMATS FOR TEST DETAIL LINES 02440378 02450378 FORMAT STATEMENTS FOR PAGE HEADERS 02650378 02660378 02790378 FORMAT STATEMENTS FOR REPORT FOOTINGS 02800378 02810378 02860378 FORMAT STATEMENTS FOR RUN SUMMARY 02870378 02880378 02950378 *** END OF TEST SEGMENT 199 02960378

**********00010379 * FORTRAN 77 00020379 FM379 00030379 * XRFOR - (201) 00040379 00050379 **********00060379 * GENERAL PURPOSE SUBSET REF 00070379 TEST TRIGONOMETRIC FORMULAE 15.3 00080379 * TABLE 5 00090379 00100379 BB *** BBCCOMNT ******00110379 00120379 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130379 VERSION 2.1 00140379 00150379 00160379 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170379 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180379 SOFTWARE STANDARDS VALIDATION GROUP 00190379 BUILDING 225 RM A266 00200379 GAITHERSBURG, MD 20899 00210379 00220379 00230379 00240379 BE *** BBCCOMNT ******00250379 BB *** BBCINITA ******00260379 SPECIFICATION STATEMENTS 00270379 00280379 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00410379 FOR IDENTIFYING THE TEST ENVIRONMENT 00420379 00430379 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00440379 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00450379 Z03 ZPROG = 'PROGRAM NAME' 00460379 Z04 ZDATE = 'DATE OF TEST' 00470379 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00480379 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00490379 Z07 ZNAME = 'NAME OF USER' 00500379 Z08 ZTAPE = 'TAPE OWNER/ID' 00510379 Z09 ZTAPED = 'DATE TAPE COPIED' 00520379 00530379 00820379 WRITE REPORT TITLE 00830379 00840379 00920379 * HEADER FOR SEGMENT 201 00930379 WRITE DETAIL REPORT HEADERS 00990379 01000379 01070379 * 01090379 T001 TEST 1 LN(EXP(X)) = 1 01100379 02480379 BB *** BBCSUM0 ******02490379 WRITE OUT TEST SUMMARY 02500379 02510379 WRITE OUT REPORT FOOTINGS 02630379 02640379 FORMATS FOR TEST DETAIL LINES 02700379 02710379 FORMAT STATEMENTS FOR PAGE HEADERS 02910379 02920379 03050379 FORMAT STATEMENTS FOR REPORT FOOTINGS 03060379 03070379 03120379 FORMAT STATEMENTS FOR RUN SUMMARY 03130379 03140379 03210379 **** END OF TEST SEGMENT 201 03220379

**********00010403 * FORTRAN 77 00020403 FM403 FMTRW - (020) 00030403 * 00040403 **********00050403 GENERAL PURPOSE SUBSET REFS00060403 * TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070403 TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080403 * THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090403 PROGRAM SEGMENTS FOR INTEGER, REAL, AND LOGICAL 00100403 * DATA TYPES. 00110403 RESTRICTIONS OBSERVED 12.8.2 00120403 * * ALL FORMAT STATEMENTS ARE LABELED 13.1.1 00130403 * H DESCRIPTOR ARE NEVER REPEATED 13.2.1 00140403 * * FOR W.D DESCRIPTORS, D IS ALWAYS SPECIFIED AND 00150403 W IS EQUAL TO OR GREATER THAN D 00160403 * * FIELD WIDTH IS NEVER ZERO 13.2.1 00170403 * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00180403 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00190403 IN THE FORMAT SPECIFICATION 00200403 * * ITEMS IN I/O LIST CORRESPOND TO EDIT DESCRIPTORS 13.3 00210403 * NEGATIVE OUTPUT VALUES ARE SIGNED 13.5.9 00220403 * * FIELD WIDTH NEVER EXCEEDED BY OUTPUT 13.5.9 00230403 * FOR I EDITING, EXTERNAL INPUT FIELDS ARE 13.5.9.100240403 * INTEGER CONSTANTS 00250403 GENERAL COMMENTS 00260403 * PLUS SIGNS FOR INPUT FIELDS ARE USUALLY OMITTED 13.5.9 00270403 FORMATTED WRITES WITHOUT AN I/O LIST (FORMAT 13.5.2 00280403 * STATEMENTS TEST H AND X DESCRIPTORS AND SLASH 13.5.3 00290403 RECORD DIVIDERS) 13.5.4 00300403 * 00310403 BB* **** BBCCOMNT *****00320403 00330403 1978 FORTRAN COMPILER VALIDATION SYSTEM 00340403 VERSION 2.1 00350403 00360403 00370403 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00380403 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00390403 SOFTWARE STANDARDS VALIDATION GROUP 00400403 BUILDING 225 RM A266 00410403 GAITHERSBURG, MD 20899 00420403 00430403 00440403 00450403 BE **** BBCCOMNT *****00460403 INPUT DATA TO THIS SEGMENT CONSISTS OF 27 CARD IMAGES IN COL. 1 - 80 00470403 OL. 1----------------------------------------------------------61 00480403 ARD 1 999 00490403 ARD 2 555554444 00500403 ARD 3 666 777777 8 00510403 ARD 4 333333111112222222255555444444444444 00520403 ARD 5 7.7123456.7 00530403 ARD 6 8.889.9997.123456 00540403 ARD 7 5.44446.5555533.133.133.133.1444.1 00550403 ARD 8 5555.15555.1 66666.166666.1 44.22 00560403 ARD 9 2.12.12.12.12.1666.3334.3334.3334.333 00570403 ARD 10 -0.1E+01+0.22E-01 0.333E+02 0.4444E+03-0.55555E-03+0.666666E+ 00580403 OL. 62------------77 00590403 ARD 10 00+0.9876543E+12 00600403 OL. 1----------------------------------------------------------61 00610403 ARD 11 TABC 00620403 ARD 12 FDEFFGHIT+T1F/).TRUE..FALSE. 00630403 ARD 13 -9.9-9.9-9.9-9.9 00640403 ARD 14 9999999999 00650403 ARD 15 .9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9.9 00660403 ARD 16 TFTFTFTFTF 00670403 ARD 17 99999999 00680403 ARD 18 9999999999999999TFFT9.99.99.99.99.9 00690403 ARD 19 T F T F 00700403 ARD 20 3334444.555550 00710403 ARD 21 9876.5498.7654E2 9876.54 987.654 86.4786E286.4786 00720403 ARD 22 9.8765698.7654E2 9876.54 987.654 86.4786E286.4786 00730403 ARD 23 122333544888611222 00740403 ARD 24 455666233444966111 00750403 ARD 25 788999377555899777 00760403 ARD 26 11112 334 559 880 11 00770403 ARD 27 6 778 995 441 222 00 00780403 00790403 * S P E C I F I C A T I O N S SEGMENT 020 00800403 00810403 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 01020403 FOR IDENTIFYING THE TEST ENVIRONMENT 01030403 01040403 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 01050403 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 01060403 Z03 ZPROG = 'PROGRAM NAME' 01070403 Z04 ZDATE = 'DATE OF TEST' 01080403 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 01090403 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 01100403 Z07 ZNAME = 'NAME OF USER' 01110403 Z08 ZTAPE = 'TAPE OWNER/ID' 01120403 Z09 ZTAPED = 'DATE TAPE COPIED' 01130403 01140403 I N P U T - O U T P U T ASSIGNMENT STATEMENTS 01390403 01450403 WRITE REPORT TITLE 01460403 01470403 HEADER FORMAT STATEMENT 01550403 WRITE DETAIL REPORT HEADERS 01600403 01610403 * A VARIABLE NUMBER OF BLANKS IN H AND X FIELDS 01830403 SPECIAL CHARACTERS 02080403 * FORMAT TO TEST VERTICAL SPACING 02180403 12.9.5.2.3 02190403 T004 TEST 4 - FORMAT STATEMENT ENDING WITH ONE SLASH DESCRIPTOR 02200403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH INTEGER 12.8.1 02890403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. (THE 12.8.2 02900403 * NUMBER OF ITEMS IN THE LIST IS VARIABLE.) SOME 13.2.1 02910403 FORMAT STATEMENTS CONTAIN REPEATED FIELDS. 02920403 * FORMATS CONTAIN I EDIT DESCRIPTORS. 13.5.9.1 02930403 FIELD WIDTHS ARE FROM 1 TO 5 DIGITS. 13.3 02940403 * INPUT CARD 1 02950403 INPUT CARD 2 02980403 * INPUT CARD 3 03010403 INPUT CARD 4 03040403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 03520403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST.(THE 12.8.2 03530403 * NUMBER OF ITEMS IN THE LIST IS VARIABLE.) ONLY F 13.5.9.2 03540403 EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2.1 03550403 * STATEMENTS. SOME F EDIT DESCRIPTORS ARE REPEATED. 13.3 03560403 FIELD WIDTH ALWAYS CONTAINS 1 POSITION FOR DECIMAL PT. 03570403 * FIELD WIDTH IS FROM 1 TO 7 DIGITS. PLACEMENT OF 03580403 DECIMAL POINT IS VARIABLE. SOME F FIELDS ARE 03590403 * REPEATED 03600403 INPUT CARD 5 03610403 * INPUT CARD 6 03640403 INPUT CARD 7 03670403 * INPUT CARD 8 03710403 INPUT CARD 9 03740403 * FORMATTED DATA TRANSFER I/O STATEMENTS WITH REAL 12.8.1 04300403 VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST. 12.8.2 04310403 * E EDIT DESCRIPTORS ARE USED IN THE FORMAT 13.5.9.2 04320403 STATEMENTS. SOME E EDIT DESCRIPTORS ARE REPEATED 13.5.9.2.2 04330403 * (FIELD WIDTH ALWAYS INCLUDES 6 EXTRA POSITIONS 04340403 TO PROVIDE FOR SIGN, DECIMAL POINT AND EXPONENT. 13.5.9 04350403 * PROVISION IS ALWAYS MADE FOR THE DIGIT ZERO 13.5.9.2.1 04360403 BEFORE THE DECIMAL POINT) 04370403 * THE NUMBER OF DECIMAL PLACES VARIES FROM 1 04380403 TO 7 DIGITS. 04390403 * INPUT CARD 10 04400403 FORMATTED DATA TRANSFER I/O STATEMENTS WITH LOGICAL 12.8.2 04940403 * VARIABLES AND ARRAY ELEMENTS IN AN I/O LIST 13.5.10 04950403 SOME L EDIT DESCRIPTORS ARE REPEATED. 04960403 * L EDIT DESCRIPTORS ARE USED IN THE FORMAT STATEMENTS 13.2.1 04970403 INPUT CARD 11 04980403 * INPUT CARD 12 05010403 FORMATTED DATA TRANSFER STATEMENTS WITH ARRAY 12.8.2 05170403 * NAMES OF SEVERAL TYPES IN AN I/O LIST. THE 12.9.5.2 05180403 NUMBER OF ITEMS IN THE LIST IS VARIABLE. SOME 13.2.1 05190403 * EDIT DESCRIPTORS ARE REPEATED. 05200403 OPTIONAL COMMA BEFORE AND AFTER A SLASH 05210403 * INPUT CARDS 13, 14 05220403 INPUT CARDS 15, 16 05250403 * INPUT CARDS 17, 18 05280403 THAT OPTIONAL BLANKS MAY PRECEDE A LOGICAL INPUT FIELD05610403 * INPUT CARD 19 05620403 FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05760403 * WHERE D IS EQUAL TO ZERO 05770403 INPUT CARD 20 05780403 * FORMATTED DATA TRANSFER TO TEST F EDIT DESCRIPTORS 13.5.9.2.1 05910403 WHERE W EQUALS D+1 AND WHERE D IS EQUAL TO ZERO 13.2.1 05920403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06030403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06040403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06050403 I EDIT DESCRIPTORS 06060403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06170403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06180403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06190403 I EDIT DESCRIPTORS 06200403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06310403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06320403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06330403 I EDIT DESCRIPTORS 06340403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06490403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06500403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06510403 I EDIT DESCRIPTORS 06520403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06630403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06640403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06650403 I EDIT DESCRIPTORS 06660403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 06770403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06780403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06790403 F EDIT DESCRIPTORS 06800403 * ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 06920403 PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 06930403 * F EDIT DESCRIPTORS 06940403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07050403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07060403 F EDIT DESCRIPTORS 07070403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07180403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07190403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07200403 F EDIT DESCRIPTORS 07210403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07320403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07330403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07340403 F EDIT DESCRIPTORS 07350403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07460403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07470403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07480403 F EDIT DESCRIPTORS 07490403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07600403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07610403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07620403 E EDIT DESCRIPTORS 07630403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07750403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07760403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07770403 E EDIT DESCRIPTORS 07780403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 07940403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 07950403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 07960403 E EDIT DESCRIPTORS 07970403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08090403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08100403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08110403 E EDIT DESCRIPTORS 08120403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08240403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08250403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08260403 E EDIT DESCRIPTORS 08270403 * FORMATTED WRITES TO TEST THAT LEADING BLANKS 13.5.9 08390403 ARE INSERTED IN THE OUTPUT FIELD WHEN THE OUTPUT 08400403 * PRODUCED IS SMALLER THAN THE FIELD WIDTH FOR THE 08410403 E EDIT DESCRIPTORS 08420403 * SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08540403 ON READ, BUT NOT ON WRITE 08550403 * INPUT CARD 21 08560403 SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08710403 * ON READ, BUT NOT ON WRITE 08720403 SCALE FACTOR APPLIED TO F AND E EDIT DESCRIPTORS 08840403 * ON WRITE, BUT, NOT ON READ 08850403 INPUT CARD 22 08860403 * ON WRITE, BUT, NOT ON READ 09010403 INPUT CARDS 23, 24, 25 09130403 * INPUT CARDS 26, 27 09320403 WRITE OUT TEST SUMMARY 09480403 09490403 WRITE OUT REPORT FOOTINGS 09610403 09620403 FORMATS FOR TEST DETAIL LINES 09680403 09690403 FORMAT STATEMENTS FOR PAGE HEADERS 09890403 09900403 10030403 FORMAT STATEMENTS FOR REPORT FOOTINGS 10040403 10050403 10100403 FORMAT STATEMENTS FOR RUN SUMMARY 10110403 10120403 10190403 *** END OF TEST SEGMENT 020 10200403

**********00010404 * FORTRAN 77 00020404 FM404 AFMTS - (022) 00030404 * 00040404 **********00050404 GENERAL PURPOSE SUBSET REFS00060404 * TO TEST SIMPLE FORMAT AND FORMATTED DATA 12.9.5.200070404 TRANSFER STATEMENTS IN EXTERNAL SEQUENTIAL I/O SO 13.1.1 00080404 * THAT THESE FEATURES MAY BE USED IN OTHER TEST 12.8.1 00090404 PROGRAM SEGMENTS FOR CHARACTER DATA TYPES. 4.8 00100404 * 00110404 RESTRICTIONS OBSERVED 00120404 * * ALL FORMAT STATEMENTS ARE LABELED 12.8.2 00130404 * H AND X DESCRIPTORS ARE NEVER REPEATED 13.1.1 00140404 * * FIELD WIDTH IS NEVER ZERO 13.5.11 00150404 * IF AN I/O LIST SPECIFIES AT LEAST ONE LIST ITEM 13.3 00160404 * AT LEAST ONE REPEATABLE EDIT DESCRIPTOR MUST EXIST 00170404 IN THE FORMAT SPECIFICATION. 00180404 * * ITEMS IN I/O LIST CORRESPOND TO FORMAT DESCRIPTORS 13.3 00190404 00200404 BB *** BBCCOMNT ******00210404 00220404 1978 FORTRAN COMPILER VALIDATION SYSTEM 00230404 VERSION 2.1 00240404 00250404 00260404 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00270404 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00280404 SOFTWARE STANDARDS VALIDATION GROUP 00290404 BUILDING 225 RM A266 00300404 GAITHERSBURG, MD 20899 00310404 00320404 00330404 00340404 BE *** BBCCOMNT ******00350404 00360404 INPUT DATA TO THIS SEG. CONSISTS OF 6 DATA CARD IMAGES IN COLS. 1 - 5500370404 OL. 1--------------------------------------------47 00380404 ARD 1 QRSTMNOPIJKLYZ127890ABCD3456EFGHUVWX/(),.' =+- 00390404 ARD 2 AABABCABCDABCDEABCDEFWXYZWXYZWXYZWXYZWXYZWXYZ 00400404 ARD 3 112123123412345123456 00410404 ARD 4 GGGGHHHHIIIIJJJJ 00420404 ARD 5 ----LLLL 00430404 ARD 6 ....NNNN 00440404 * 00450404 S P E C I F I C A T I O N S SEGMENT 022 00460404 * 00470404 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00700404 FOR IDENTIFYING THE TEST ENVIRONMENT 00710404 00720404 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00730404 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00740404 Z03 ZPROG = 'PROGRAM NAME' 00750404 Z04 ZDATE = 'DATE OF TEST' 00760404 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00770404 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00780404 Z07 ZNAME = 'NAME OF USER' 00790404 Z08 ZTAPE = 'TAPE OWNER/ID' 00800404 Z09 ZTAPED = 'DATE TAPE COPIED' 00810404 00820404 01120404 WRITE REPORT TITLE 01130404 01140404 01220404 * HEADER FOR SEGMENT 22 01230404 WRITE DETAIL REPORT HEADERS 01290404 01300404 01370404 * TESTS THAT ALL FORTRAN (SUBSET) CHARACTERS MAY BE READ. 3.101380404 01390404 * INPUT CARD 1 01400404 01610404 * AW CONVERSION IS USED IN THE FORMAT STATEMENTS. 3.5.1101620404 SOME FORMAT DESCRIPTORS ARE REPEATED. 01630404 * THE FOLLOWING THREE CASES ARE USED FOR BOTH INPUT AND OUTPUT. 01640404 INPUT FIELD WIDTH = CHARACTER VARIABLE LENGTH 01650404 * INPUT FIELD WIDTH < CHARACTER VARIABLE LENGTH 01660404 INPUT FIELD WIDTH > CHARACTER VARIABLE LENGTH 01670404 * 01680404 INPUT CARD 2 01690404 * 01860404 T003 TEST 3 01870404 02000404 * A CONVERSION IS USED IN THE FORMAT STATEMENTS. 3.5.1102010404 SOME FORMAT DESCRIPTORS ARE REPEATED. 02020404 * READ WITH A-EDIT DESCRIPTOR, A STRING, FOLLOWED BY ANOTHER 02030404 FIELD TO SHOW THAT THE POINTER PICKS UP THE NEXT FIELD 02040404 * FOLLOWING THE COUNT OF THE LENGTH OF THE DECLARED VARIABLE. 02050404 02060404 * INPUT CARD 3 02070404 02200404 * TEST THAT A SLASH ON INPUT CAUSES THE UNPROCESSED CHARACTERS 02210404 TO BE SKIPPED. 13.5.402220404 * ALSO TEST THAT AN APOSTROPHE MAY BE USED INSTEAD OF AN 13.5.102230404 H-EDIT DESCRIPTOR. 13.5.202240404 * 02250404 INPUT CARD 4 02260404 * INPUT CARDS 5-6 02290404 02450404 BB *** BBCSUM0 ******02460404 WRITE OUT TEST SUMMARY 02470404 02480404 WRITE OUT REPORT FOOTINGS 02600404 02610404 FORMATS FOR TEST DETAIL LINES 02670404 02680404 FORMAT STATEMENTS FOR PAGE HEADERS 02880404 02890404 03020404 FORMAT STATEMENTS FOR REPORT FOOTINGS 03030404 03040404 03090404 FORMAT STATEMENTS FOR RUN SUMMARY 03100404 03110404 * 03180404 ** END OF TEST SEGMENT 022 03190404

**********00010405 * FORTRAN 77 00020405 FM405 00030405 * INTER1 - (390) 00040405 00050405 **********00060405 * TESTING OF INTERNAL FILES - SUBSET REF00070405 USING READ 12.2.5 00080405 * 00090405 BB* **** BBCCOMNT *****00100405 00110405 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120405 VERSION 2.1 00130405 00140405 00150405 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160405 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170405 SOFTWARE STANDARDS VALIDATION GROUP 00180405 BUILDING 225 RM A266 00190405 GAITHERSBURG, MD 20899 00200405 00210405 00220405 00230405 BE **** BBCCOMNT ******00240405 00250405 * S P E C I F I C A T I O N S SEGMENT 390 00260405 00270405 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460405 FOR IDENTIFYING THE TEST ENVIRONMENT 00470405 00480405 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490405 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500405 Z03 ZPROG = 'PROGRAM NAME' 00510405 Z04 ZDATE = 'DATE OF TEST' 00520405 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530405 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540405 Z07 ZNAME = 'NAME OF USER' 00550405 Z08 ZTAPE = 'TAPE OWNER/ID' 00560405 Z09 ZTAPED = 'DATE TAPE COPIED' 00570405 00580405 00830405 * 00850405 00900405 WRITE REPORT TITLE 00910405 00920405 * 01000405 01060405 * HEADER FOR SEGMENT 390 01070405 01080405 WRITE DETAIL REPORT HEADERS 01130405 01140405 * 01210405 ******** 01220405 T001* TEST 1 CHARACTER VARIABLE, INTEGER 01230405 * 01390405 T002 TEST 2 REAL, FW.D 01400405 START READING JUST AFTER FIRST VARIABLE 02850405 * WITH RUN TIME EXPRESSION AS SUBSCRIPT03270405 03560405 * 04060405 END OF TEST SEGMENT 390 04070405 BB *** BBCSUM0 ******04080405 WRITE OUT TEST SUMMARY 04090405 04100405 WRITE OUT REPORT FOOTINGS 04220405 04230405 FORMATS FOR TEST DETAIL LINES 04290405 04300405 FORMAT STATEMENTS FOR PAGE HEADERS 04500405 04510405 04640405 FORMAT STATEMENTS FOR REPORT FOOTINGS 04650405 04660405 04710405 FORMAT STATEMENTS FOR RUN SUMMARY 04720405 04730405

**********00010406 * FORTRAN 77 00020406 FM406 00030406 * INTER2 - (391) 00040406 00050406 **********00060406 * TESTING OF INTERNAL FILES - SUBSET REF00070406 USING WRITE 12.2.5 00080406 * 00090406 BB* **** BBCCOMNT *****00100406 00110406 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120406 VERSION 2.1 00130406 00140406 00150406 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160406 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170406 SOFTWARE STANDARDS VALIDATION GROUP 00180406 BUILDING 225 RM A266 00190406 GAITHERSBURG, MD 20899 00200406 00210406 00220406 00230406 BE **** BBCCOMNT ******00240406 00250406 * S P E C I F I C A T I O N S SEGMENT 391 00260406 00270406 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470406 FOR IDENTIFYING THE TEST ENVIRONMENT 00480406 00490406 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500406 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510406 Z03 ZPROG = 'PROGRAM NAME' 00520406 Z04 ZDATE = 'DATE OF TEST' 00530406 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540406 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550406 Z07 ZNAME = 'NAME OF USER' 00560406 Z08 ZTAPE = 'TAPE OWNER/ID' 00570406 Z09 ZTAPED = 'DATE TAPE COPIED' 00580406 00590406 00880406 WRITE REPORT TITLE 00890406 00900406 * 00980406 00990406 * HEADER FOR SEGMENT 391 01000406 01010406 WRITE DETAIL REPORT HEADERS 01060406 01070406 * CHARACTER AND HOLLERITH STRINGS 03380406 04030406 BB *** BBCSUM0 ******04040406 WRITE OUT TEST SUMMARY 04050406 04060406 WRITE OUT REPORT FOOTINGS 04180406 04190406 FORMATS FOR TEST DETAIL LINES 04250406 04260406 FORMAT STATEMENTS FOR PAGE HEADERS 04460406 04470406 04600406 FORMAT STATEMENTS FOR REPORT FOOTINGS 04610406 04620406 04670406 FORMAT STATEMENTS FOR RUN SUMMARY 04680406 04690406 * 04760406 * END OF TEST SEGMENT 391 04770406

**********00010407 * FORTRAN 77 00020407 FM407 00030407 * DIRAF1 - (410) 00040407 THIS PROGRAM CALLS SUBROUTINE SN408 00050407 **********00060407 * TESTING OF DIRECT ACCESS FILES SUBSET REF00070407 UNFORMATED RECORDS ONLY 12.10.1 00080407 * 00090407 00100407 BB *** BBCCOMNT ******00110407 00120407 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130407 VERSION 2.1 00140407 00150407 00160407 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170407 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180407 SOFTWARE STANDARDS VALIDATION GROUP 00190407 BUILDING 225 RM A266 00200407 GAITHERSBURG, MD 20899 00210407 00220407 00230407 00240407 BE *** BBCCOMNT ******00250407 00260407 * S P E C I F I C A T I O N S SEGMENT 410 00270407 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470407 FOR IDENTIFYING THE TEST ENVIRONMENT 00480407 00490407 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500407 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510407 Z03 ZPROG = 'PROGRAM NAME' 00520407 Z04 ZDATE = 'DATE OF TEST' 00530407 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540407 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550407 Z07 ZNAME = 'NAME OF USER' 00560407 Z08 ZTAPE = 'TAPE OWNER/ID' 00570407 Z09 ZTAPED = 'DATE TAPE COPIED' 00580407 00590407 * 00840407 THE FOLLOWING STATEMENT MUST BE CHANGED IF 00850407 * THE UNIT GIVEN IS NOT CAPABLE OF BEING OPENED AS A 00860407 DIRECT, UNFORMATTED FILE. 00870407 * 00880407 I10 CONTAINS THE UNIT NUMBER FOR A DIRECT, UNFORMATTED FILE. 00890407 00930407 * THE FOLLOWING STATEMENT MUST BE CHANGED IF THE NAME 00940407 GIVEN IS NOT A VALID FILE SPECIFIER FOR A DIRECT, 00950407 * UNFORMATTED FILE. 00960407 00970407 * 00980407 01030407 WRITE REPORT TITLE 01040407 01050407 * FILE NUMBER ASSIGNMENT 01130407 01150407 * HEADER FOR SEGMENT 410 01160407 WRITE DETAIL REPORT HEADERS 01210407 01220407 01290407 * 01350407 01370407 * WRITE 10 RECORDS IN SEQUENCE, REC = 1 TO 10 01390407 WRITE RECORDS NOT IN SEQUENCE OF RECORD NUMBER 01920407 * 02430407 BB* **** BBCSUM0 *****02710407 WRITE OUT TEST SUMMARY 02720407 02730407 WRITE OUT REPORT FOOTINGS 02850407 02860407 FORMATS FOR TEST DETAIL LINES 02920407 02930407 FORMAT STATEMENTS FOR PAGE HEADERS 03130407 03140407 03270407 FORMAT STATEMENTS FOR REPORT FOOTINGS 03280407 03290407 03340407 FORMAT STATEMENTS FOR RUN SUMMARY 03350407 03360407 03430407 * END OF TEST SEGMENT 410 03440407

**********00010500 * FORTRAN 77 00020500 FM500 00030500 * BLKD1 - (260) 00040500 THIS PROGRAM USES SN501 AND AN502 00050500 **********00060500 * TESTING OF BLOCK DATA SUBPROGRAMS FEATURES ANS REF 00070500 IMPLICIT, PARAMETER, EXTERNAL, AND SAVE 16 00080500 * THIS SEGMENT USES BLOCK DATA PROGRAM 00090500 AN502 AND SUBROUTINE SN501 00100500 * 00110500 S P E C I F I C A T I O N S SEGMENT 260 00120500 * DECLARATION OF VARIABLES IN COMMON BLOCKS 00140500 PARAMETER (KPI = 2, LPI = 10) 00150500 * INTEGER FXVI 00160500 REAL JX1S 00170500 * DOUBLE PRECISION AX1D, BX4D 00180500 DIMENSION BX4D(KPI, KPI, KPI, KPI) 00190500 * COMPLEX AXVC, BX1C, CZ5C 00200500 LOGICAL AXVB, BZ1B, CX6B(2,2,2,2,2,2) 00210500 * CHARACTER1 A1XVK, B1X1K, C1X7K 00220500 CHARACTER*2 D2Z1K 00230500 * CHARACTER4 E4XVK, G4X2K 00240500 CHARACTER(LPI) I10XVK 00250500 * 00260500 COMMON /BLK1/ IXVI, FXVI, KX1I(2), HX2I(2,2), MX2I(2,2) 00270500 * COMMON /BLK2/ AXVS, BXVS, JX1S(2), CX2S(2,2), DZ3S(2,2,2), EZVS 00280500 COMMON /BLK3/ RXVD, AX1D(2), BX4D 00290500 * COMMON /BLK4/ AXVC, BX1C(2), CZ5C(2,2,2,2,2) 00300500 COMMON /BLK5/ AXVB, BZ1B(2), CX6B 00310500 * COMMON /BLK6/ A1XVK, B1X1K(2), C1X7K(2,2,2,2,2,2,2), 00320500 S2XVK, D2Z1K(2), E4XVK, G4X2K(2,2), I10XVK 00330500 * 00340500 * END OF TEST SEGMENT 260 00370500

**********00010503 * FORTRAN 77 00020503 FM503 00030503 * BLKD2 - (261) 00040503 THIS PROGRAM USES FM504 (UNNAMED BLOCK DATA SUBPROGRAM 00050503 * AND SUBROUTINE SN505 00060503 **********00070503 TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00080503 * DATA INTERNAL FORMS 16 00090503 THIS SEGMENT USES SEGMENTS 702 AND 703, BLOCK DATA PROGRAM 00100503 * FM504 AND SUBROUTINE SN505 00110503 00120503 BB *** BBCCOMNT ******00130503 00140503 1978 FORTRAN COMPILER VALIDATION SYSTEM 00150503 VERSION 2.1 00160503 00170503 00180503 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00190503 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00200503 SOFTWARE STANDARDS VALIDATION GROUP 00210503 BUILDING 225 RM A266 00220503 GAITHERSBURG, MD 20899 00230503 00240503 00250503 00260503 BE *** BBCCOMNT ******00270503 00280503 * S P E C I F I C A T I O N S SEGMENT 261 00290503 00300503 * DECLARATION OF VARIABLES IN COMMON BLOCKS 00310503 DOUBLE PRECISION AXVD, DVCORR 00320503 * COMPLEX AXVC, ZVCORR 00330503 * LOGICAL AXVB 00340503 * CHARACTER6 A6XVK, B6XVK, CVCORR 00350503 00360503 * COMMON /BLK9/ AXVS, BXVS, IXVI, AXVD, AXVC, AXVB 00370503 COMMON /BLK7/ A6XVK, B6XVK 00380503 * 00390503 00400503 * 00430503 * END OF TEST SEGMENT 261 00440503

**********00010506 * FORTRAN 77 00020506 FM506 00030506 * BLKD3 - (262) 00040506 USES BLOCK DATA SUBPROGRAM AN507 AND SUBROUTINE SN508 00050506 **********00060506 * TESTING OF BLOCK DATA SUBPROGRAMS ANS REF 00070506 VARYING CHARACTER VARIABLE LENGTHS 16 00080506 * THIS SEGMENT USES SEGMENTS 704 AND 705, BLOCK DATA PROGRAM 00090506 AN507 AND SUBROUTINE SN508 00100506 * 00110506 BB* **** BBCCOMNT *****00120506 00130506 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140506 VERSION 2.1 00150506 00160506 00170506 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180506 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190506 SOFTWARE STANDARDS VALIDATION GROUP 00200506 BUILDING 225 RM A266 00210506 GAITHERSBURG, MD 20899 00220506 00230506 00240506 00250506 BE **** BBCCOMNT ******00260506 00270506 * S P E C I F I C A T I O N S SEGMENT 262 00280506 00290506 * CHARACTER3 C3XVK, F3XVK 00300506 CHARACTER*2 D2XVK 00310506 * CHARACTER5 E5XVK 00320506 COMMON /BLK8/ C3XVK, D2XVK, E5XVK, F3XVK 00330506 * 00340506 00360506 * 00380506 * END OF TEST SEGMENT 262 00390506

00130509 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140509 VERSION 2.1 00150509 00160509 00170509 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180509 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190509 SOFTWARE STANDARDS VALIDATION GROUP 00200509 BUILDING 225 RM A266 00210509 GAITHERSBURG, MD 20899 00220509 00230509 00240509 00250509 BE* **** BBCCOMNT *****00260509 SPECIFICATION STATEMENTS 00300509 00310509 INITIALIZE SECTION 00490509 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00570509 FOR IDENTIFYING THE TEST ENVIRONMENT 00580509 00590509 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00600509 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00610509 Z03 ZPROG = 'PROGRAM NAME' 00620509 Z04 ZDATE = 'DATE OF TEST' 00630509 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00640509 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00650509 Z07 ZNAME = 'NAME OF USER' 00660509 Z08 ZTAPE = 'TAPE OWNER/ID' 00670509 Z09 ZTAPED = 'DATE TAPE COPIED' 00680509 00690509 00970509 WRITE REPORT TITLE 00980509 00990509 WRITE DETAIL REPORT HEADERS 01080509 01090509 WRITE OUT TEST SUMMARY 03890509 03900509 WRITE OUT REPORT FOOTINGS 04020509 04030509 FORMATS FOR TEST DETAIL LINES 04110509 04120509 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04320509 04330509 FORMAT STATEMENTS FOR PAGE HEADERS 04470509 04480509 04610509 FORMAT STATEMENTS FOR REPORT FOOTINGS 04620509 04630509 04680509 FORMAT STATEMENTS FOR RUN SUMMARY 04690509 04700509

00110514 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120514 VERSION 2.1 00130514 00140514 00150514 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160514 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170514 SOFTWARE STANDARDS VALIDATION GROUP 00180514 BUILDING 225 RM A266 00190514 GAITHERSBURG, MD 20899 00200514 00210514 00220514 00230514 BE* **** BBCCOMNT *****00240514 SPECIFICATION STATEMENTS 00280514 00290514 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00430514 FOR IDENTIFYING THE TEST ENVIRONMENT 00440514 00450514 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00460514 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00470514 Z03 ZPROG = 'PROGRAM NAME' 00480514 Z04 ZDATE = 'DATE OF TEST' 00490514 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00500514 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00510514 Z07 ZNAME = 'NAME OF USER' 00520514 Z08 ZTAPE = 'TAPE OWNER/ID' 00530514 Z09 ZTAPED = 'DATE TAPE COPIED' 00540514 00550514 00830514 WRITE REPORT TITLE 00840514 00850514 WRITE DETAIL REPORT HEADERS 00940514 00950514 WRITE OUT TEST SUMMARY 01540514 01550514 WRITE OUT REPORT FOOTINGS 01670514 01680514 FORMATS FOR TEST DETAIL LINES 01760514 01770514 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 01970514 01980514 FORMAT STATEMENTS FOR PAGE HEADERS 02120514 02130514 02260514 FORMAT STATEMENTS FOR REPORT FOOTINGS 02270514 02280514 02330514 FORMAT STATEMENTS FOR RUN SUMMARY 02340514 *** 02350514

00130517 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140517 VERSION 2.1 00150517 00160517 00170517 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180517 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190517 SOFTWARE STANDARDS VALIDATION GROUP 00200517 BUILDING 225 RM A266 00210517 GAITHERSBURG, MD 20899 00220517 00230517 00240517 00250517 BE* **** BBCCOMNT *****00260517 SPECIFICATION STATEMENTS 00300517 00310517 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480517 FOR IDENTIFYING THE TEST ENVIRONMENT 00490517 00500517 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510517 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520517 Z03 ZPROG = 'PROGRAM NAME' 00530517 Z04 ZDATE = 'DATE OF TEST' 00540517 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00550517 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00560517 Z07 ZNAME = 'NAME OF USER' 00570517 Z08 ZTAPE = 'TAPE OWNER/ID' 00580517 Z09 ZTAPED = 'DATE TAPE COPIED' 00590517 00600517 00880517 WRITE REPORT TITLE 00890517 00900517 WRITE DETAIL REPORT HEADERS 00990517 01000517 WRITE OUT TEST SUMMARY 02280517 02290517 WRITE OUT REPORT FOOTINGS 02410517 02420517 FORMATS FOR TEST DETAIL LINES 02500517 02510517 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02710517 02720517 FORMAT STATEMENTS FOR PAGE HEADERS 02860517 02870517 03000517 FORMAT STATEMENTS FOR REPORT FOOTINGS 03010517 03020517 03070517 FORMAT STATEMENTS FOR RUN SUMMARY 03080517 *** 03090517

00070520 1978 FORTRAN COMPILER VALIDATION SYSTEM 00080520 VERSION 2.1 00090520 00100520 00110520 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00120520 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00130520 SOFTWARE STANDARDS VALIDATION GROUP 00140520 BUILDING 225 RM A266 00150520 GAITHERSBURG, MD 20899 00160520 00170520 00180520 00190520 BE* **** BBCCOMNT *****00200520 SPECIFICATION STATEMENTS 00240520 00250520 INITIALIZE SECTION 00400520 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00480520 FOR IDENTIFYING THE TEST ENVIRONMENT 00490520 00500520 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00510520 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00520520 Z03 ZPROG = 'PROGRAM NAME' 00530520 Z04 ZDATE = 'DATE OF TEST' 00540520 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00550520 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00560520 Z07 ZNAME = 'NAME OF USER' 00570520 Z08 ZTAPE = 'TAPE OWNER/ID' 00580520 Z09 ZTAPED = 'DATE TAPE COPIED' 00590520 00600520 00880520 WRITE REPORT TITLE 00890520 00900520 WRITE DETAIL REPORT HEADERS 00990520 01000520 WRITE OUT TEST SUMMARY 05500520 05510520 WRITE OUT REPORT FOOTINGS 05630520 05640520 FORMATS FOR TEST DETAIL LINES 05720520 05730520 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05930520 05940520 FORMAT STATEMENTS FOR PAGE HEADERS 06080520 06090520 06220520 FORMAT STATEMENTS FOR REPORT FOOTINGS 06230520 06240520 06290520 FORMAT STATEMENTS FOR RUN SUMMARY 06300520 06310520

00150700 1978 FORTRAN COMPILER VALIDATION SYSTEM 00160700 VERSION 2.1 00170700 00180700 00190700 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00200700 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00210700 SOFTWARE STANDARDS VALIDATION GROUP 00220700 BUILDING 225 RM A266 00230700 GAITHERSBURG, MD 20899 00240700 00250700 00260700 00270700 BE* **** BBCCOMNT *****00280700 SPECIFICATION STATEMENTS 00320700 00330700 INITIALIZE SECTION 00660700 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00740700 FOR IDENTIFYING THE TEST ENVIRONMENT 00750700 00760700 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00770700 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00780700 Z03 ZPROG = 'PROGRAM NAME' 00790700 Z04 ZDATE = 'DATE OF TEST' 00800700 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00810700 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00820700 Z07 ZNAME = 'NAME OF USER' 00830700 Z08 ZTAPE = 'TAPE OWNER/ID' 00840700 Z09 ZTAPED = 'DATE TAPE COPIED' 00850700 00860700 01140700 WRITE REPORT TITLE 01150700 01160700 WRITE DETAIL REPORT HEADERS 01250700 01260700 WRITE OUT TEST SUMMARY 05190700 05200700 WRITE OUT REPORT FOOTINGS 05320700 05330700 FORMATS FOR TEST DETAIL LINES 05410700 05420700 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05620700 05630700 FORMAT STATEMENTS FOR PAGE HEADERS 05770700 05780700 05910700 FORMAT STATEMENTS FOR REPORT FOOTINGS 05920700 05930700 05980700 FORMAT STATEMENTS FOR RUN SUMMARY 05990700 06000700

00120701 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130701 VERSION 2.1 00140701 00150701 00160701 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170701 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180701 SOFTWARE STANDARDS VALIDATION GROUP 00190701 BUILDING 225 RM A266 00200701 GAITHERSBURG, MD 20899 00210701 00220701 00230701 00240701 BE* **** BBCCOMNT *****00250701 SPECIFICATION STATEMENTS 00290701 00300701 INITIALIZE SECTION 00710701 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00790701 FOR IDENTIFYING THE TEST ENVIRONMENT 00800701 00810701 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00820701 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00830701 Z03 ZPROG = 'PROGRAM NAME' 00840701 Z04 ZDATE = 'DATE OF TEST' 00850701 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00860701 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00870701 Z07 ZNAME = 'NAME OF USER' 00880701 Z08 ZTAPE = 'TAPE OWNER/ID' 00890701 Z09 ZTAPED = 'DATE TAPE COPIED' 00900701 00910701 01190701 WRITE REPORT TITLE 01200701 01210701 WRITE DETAIL REPORT HEADERS 01300701 01310701 WRITE OUT TEST SUMMARY 07170701 07180701 WRITE OUT REPORT FOOTINGS 07300701 07310701 FORMATS FOR TEST DETAIL LINES 07390701 07400701 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07600701 07610701 FORMAT STATEMENTS FOR PAGE HEADERS 07750701 07760701 07890701 FORMAT STATEMENTS FOR REPORT FOOTINGS 07900701 07910701 07960701 FORMAT STATEMENTS FOR RUN SUMMARY 07970701 07980701

00110710 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120710 VERSION 2.1 00130710 00140710 00150710 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160710 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170710 SOFTWARE STANDARDS VALIDATION GROUP 00180710 BUILDING 225 RM A266 00190710 GAITHERSBURG, MD 20899 00200710 00210710 00220710 00230710 BE* **** BBCCOMNT *****00240710 SPECIFICATION STATEMENTS 00280710 00290710 INITIALIZE SECTION 00480710 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00560710 FOR IDENTIFYING THE TEST ENVIRONMENT 00570710 00580710 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00590710 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00600710 Z03 ZPROG = 'PROGRAM NAME' 00610710 Z04 ZDATE = 'DATE OF TEST' 00620710 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00630710 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00640710 Z07 ZNAME = 'NAME OF USER' 00650710 Z08 ZTAPE = 'TAPE OWNER/ID' 00660710 Z09 ZTAPED = 'DATE TAPE COPIED' 00670710 00680710 00960710 WRITE REPORT TITLE 00970710 00980710 WRITE DETAIL REPORT HEADERS 01070710 01080710 WRITE OUT TEST SUMMARY 04650710 04660710 WRITE OUT REPORT FOOTINGS 04780710 04790710 FORMATS FOR TEST DETAIL LINES 04870710 04880710 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 05080710 05090710 FORMAT STATEMENTS FOR PAGE HEADERS 05230710 05240710 05370710 FORMAT STATEMENTS FOR REPORT FOOTINGS 05380710 05390710 05440710 FORMAT STATEMENTS FOR RUN SUMMARY 05450710 05460710

00100711 1978 FORTRAN COMPILER VALIDATION SYSTEM 00110711 VERSION 2.1 00120711 00130711 00140711 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00150711 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00160711 SOFTWARE STANDARDS VALIDATION GROUP 00170711 BUILDING 225 RM A266 00180711 GAITHERSBURG, MD 20899 00190711 00200711 00210711 00220711 BE* **** BBCCOMNT *****00230711 SPECIFICATION STATEMENTS 00270711 00280711 INITIALIZE SECTION 00420711 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00500711 FOR IDENTIFYING THE TEST ENVIRONMENT 00510711 00520711 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00530711 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00540711 Z03 ZPROG = 'PROGRAM NAME' 00550711 Z04 ZDATE = 'DATE OF TEST' 00560711 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00570711 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00580711 Z07 ZNAME = 'NAME OF USER' 00590711 Z08 ZTAPE = 'TAPE OWNER/ID' 00600711 Z09 ZTAPED = 'DATE TAPE COPIED' 00610711 00620711 00900711 WRITE REPORT TITLE 00910711 00920711 WRITE DETAIL REPORT HEADERS 01010711 01020711 WRITE OUT TEST SUMMARY 02010711 02020711 WRITE OUT REPORT FOOTINGS 02140711 02150711 FORMATS FOR TEST DETAIL LINES 02230711 02240711 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02440711 02450711 FORMAT STATEMENTS FOR PAGE HEADERS 02590711 02600711 02730711 FORMAT STATEMENTS FOR REPORT FOOTINGS 02740711 02750711 02800711 FORMAT STATEMENTS FOR RUN SUMMARY 02810711 02820711

00130715 1978 FORTRAN COMPILER VALIDATION SYSTEM 00140715 VERSION 2.1 00150715 00160715 00170715 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00180715 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00190715 SOFTWARE STANDARDS VALIDATION GROUP 00200715 BUILDING 225 RM A266 00210715 GAITHERSBURG, MD 20899 00220715 00230715 00240715 00250715 BE* **** BBCCOMNT *****00260715 SPECIFICATION STATEMENTS 00300715 00310715 INITIALIZE SECTION 00480715 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00560715 FOR IDENTIFYING THE TEST ENVIRONMENT 00570715 00580715 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00590715 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00600715 Z03 ZPROG = 'PROGRAM NAME' 00610715 Z04 ZDATE = 'DATE OF TEST' 00620715 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00630715 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00640715 Z07 ZNAME = 'NAME OF USER' 00650715 Z08 ZTAPE = 'TAPE OWNER/ID' 00660715 Z09 ZTAPED = 'DATE TAPE COPIED' 00670715 00680715 00960715 WRITE REPORT TITLE 00970715 00980715 WRITE DETAIL REPORT HEADERS 01070715 01080715 WRITE OUT TEST SUMMARY 07530715 07540715 WRITE OUT REPORT FOOTINGS 07660715 07670715 FORMATS FOR TEST DETAIL LINES 07750715 07760715 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 07960715 07970715 FORMAT STATEMENTS FOR PAGE HEADERS 08110715 08120715 08250715 FORMAT STATEMENTS FOR REPORT FOOTINGS 08260715 08270715 08320715 FORMAT STATEMENTS FOR RUN SUMMARY 08330715 08340715

00080718 1978 FORTRAN COMPILER VALIDATION SYSTEM 00090718 VERSION 2.1 00100718 00110718 00120718 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00130718 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00140718 SOFTWARE STANDARDS VALIDATION GROUP 00150718 BUILDING 225 RM A266 00160718 GAITHERSBURG, MD 20899 00170718 00180718 00190718 00200718 BE* **** BBCCOMNT *****00210718 SPECIFICATION STATEMENTS 00250718 00260718 INITIALIZE SECTION 00380718 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00460718 FOR IDENTIFYING THE TEST ENVIRONMENT 00470718 00480718 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00490718 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00500718 Z03 ZPROG = 'PROGRAM NAME' 00510718 Z04 ZDATE = 'DATE OF TEST' 00520718 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00530718 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00540718 Z07 ZNAME = 'NAME OF USER' 00550718 Z08 ZTAPE = 'TAPE OWNER/ID' 00560718 Z09 ZTAPED = 'DATE TAPE COPIED' 00570718 00580718 00860718 WRITE REPORT TITLE 00870718 00880718 WRITE DETAIL REPORT HEADERS 00970718 00980718 WRITE OUT TEST SUMMARY 06000718 06010718 WRITE OUT REPORT FOOTINGS 06130718 06140718 FORMATS FOR TEST DETAIL LINES 06220718 06230718 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 06430718 06440718 FORMAT STATEMENTS FOR PAGE HEADERS 06580718 06590718 06720718 FORMAT STATEMENTS FOR REPORT FOOTINGS 06730718 06740718 06790718 FORMAT STATEMENTS FOR RUN SUMMARY 06800718 06810718

00120719 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130719 VERSION 2.1 00140719 00150719 00160719 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170719 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180719 SOFTWARE STANDARDS VALIDATION GROUP 00190719 BUILDING 225 RM A266 00200719 GAITHERSBURG, MD 20899 00210719 00220719 00230719 00240719 BE* **** BBCCOMNT *****00250719 SPECIFICATION STATEMENTS 00290719 00300719 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00470719 FOR IDENTIFYING THE TEST ENVIRONMENT 00480719 00490719 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00500719 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00510719 Z03 ZPROG = 'PROGRAM NAME' 00520719 Z04 ZDATE = 'DATE OF TEST' 00530719 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00540719 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00550719 Z07 ZNAME = 'NAME OF USER' 00560719 Z08 ZTAPE = 'TAPE OWNER/ID' 00570719 Z09 ZTAPED = 'DATE TAPE COPIED' 00580719 00590719 00870719 WRITE REPORT TITLE 00880719 00890719 WRITE DETAIL REPORT HEADERS 00980719 00990719 WRITE OUT TEST SUMMARY 03940719 03950719 WRITE OUT REPORT FOOTINGS 04070719 04080719 FORMATS FOR TEST DETAIL LINES 04160719 04170719 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04370719 04380719 FORMAT STATEMENTS FOR PAGE HEADERS 04520719 04530719 04660719 FORMAT STATEMENTS FOR REPORT FOOTINGS 04670719 04680719 04730719 FORMAT STATEMENTS FOR RUN SUMMARY 04740719 *** 04750719

00360722 1978 FORTRAN COMPILER VALIDATION SYSTEM 00370722 VERSION 2.1 00380722 00390722 00400722 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00410722 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00420722 SOFTWARE STANDARDS VALIDATION GROUP 00430722 BUILDING 225 RM A266 00440722 GAITHERSBURG, MD 20899 00450722 00460722 00470722 00480722 BE* **** BBCCOMNT *****00490722 SPECIFICATION STATEMENTS 00540722 00550722 INITIALIZE SECTION 00770722 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00850722 FOR IDENTIFYING THE TEST ENVIRONMENT 00860722 00870722 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00880722 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00890722 Z03 ZPROG = 'PROGRAM NAME' 00900722 Z04 ZDATE = 'DATE OF TEST' 00910722 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00920722 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00930722 Z07 ZNAME = 'NAME OF USER' 00940722 Z08 ZTAPE = 'TAPE OWNER/ID' 00950722 Z09 ZTAPED = 'DATE TAPE COPIED' 00960722 00970722 01250722 WRITE REPORT TITLE 01260722 01270722 WRITE DETAIL REPORT HEADERS 01360722 01370722 WRITE OUT TEST SUMMARY 03900722 03910722 WRITE OUT REPORT FOOTINGS 04030722 04040722 FORMATS FOR TEST DETAIL LINES 04120722 04130722 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 04330722 04340722 FORMAT STATEMENTS FOR PAGE HEADERS 04480722 04490722 04620722 FORMAT STATEMENTS FOR REPORT FOOTINGS 04630722 04640722 04690722 FORMAT STATEMENTS FOR RUN SUMMARY 04700722 04710722

**********00010800 * FORTRAN 77 00020800 FM800 YIDINT - (151) 00030800 * 00040800 **********00050800 GENERAL PURPOSE ANS REF 00060800 * TEST INTRINSIC FUNCTION IDINT -- 15.3 00070800 TRUNCATION (SIGN OF A * LARGEST INTEGER LE ABS(A) ) (TABLE 5)00080800 * 00090800 BB* **** BBCCOMNT *****00100800 00110800 1978 FORTRAN COMPILER VALIDATION SYSTEM 00120800 VERSION 2.1 00130800 00140800 00150800 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00160800 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00170800 SOFTWARE STANDARDS VALIDATION GROUP 00180800 BUILDING 225 RM A266 00190800 GAITHERSBURG, MD 20899 00200800 00210800 00220800 00230800 BE **** BBCCOMNT ******00240800 S P E C I F I C A T I O N S SEGMENT 151 00250800 * 00260800 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00440800 FOR IDENTIFYING THE TEST ENVIRONMENT 00450800 00460800 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00470800 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00480800 Z03 ZPROG = 'PROGRAM NAME' 00490800 Z04 ZDATE = 'DATE OF TEST' 00500800 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00510800 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00520800 Z07 ZNAME = 'NAME OF USER' 00530800 Z08 ZTAPE = 'TAPE OWNER/ID' 00540800 Z09 ZTAPED = 'DATE TAPE COPIED' 00550800 00560800 00850800 WRITE REPORT TITLE 00860800 00870800 00950800 * HEADER FOR SEGMENT 151 WRITTEN 00960800 WRITE DETAIL REPORT HEADERS 01010800 01020800 01090800 T001 TEST 1 THE VALUE ZERO 01100800 WRITE OUT TEST SUMMARY 02570800 02580800 WRITE OUT REPORT FOOTINGS 02700800 02710800 FORMATS FOR TEST DETAIL LINES 02770800 02780800 FORMATS FOR TEST DETAIL LINES - FULL LANGUAGE 02980800 02990800 FORMAT STATEMENTS FOR PAGE HEADERS 03130800 03140800 03270800 FORMAT STATEMENTS FOR REPORT FOOTINGS 03280800 03290800 03340800 FORMAT STATEMENTS FOR RUN SUMMARY 03350800 03360800 * 03430800 * END OF TEST SEGMENT 151 03440800