FM923 Program

**********00010923 * FORTRAN 77 00020923 FM923 00030923 * LSTDI1 - (370) 00040923 00050923 **********00060923 * GENERAL PURPOSE ANS REF 00070923 TEST LIST DIRECTED INPUT ON 13.6 00080923 * INTEGER REAL, LOGICAL, AND CHARACTER DATA TYPES. 12.4 00090923 00100923 BB *** BBCCOMNT ******00110923 00120923 1978 FORTRAN COMPILER VALIDATION SYSTEM 00130923 VERSION 2.1 00140923 00150923 00160923 SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00170923 NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00180923 SOFTWARE STANDARDS VALIDATION GROUP 00190923 BUILDING 225 RM A266 00200923 GAITHERSBURG, MD 20899 00210923 00220923 00230923 00240923 BE *** BBCCOMNT *****00250923 INPUT DATA TO THIS SEGMENT CONSISTS OF 34 CARD IMAGES IN COL. 1-80 00260923 OL. 1----------------------------------------------------------61 00270923 ARD 1 25 00280923 ARD 2 10.75 00290923 ARD 3 12.875E01 00300923 ARD 4 T 00310923 ARD 5 'ABCDEF' 00320923 ARD 6 10 15 22 40 00330923 ARD 7 100.5 0.25E-1 -1.625E2 00340923 ARD 8 T F F T F 00350923 ARD 9 'AB' 'ABCD' 'ABCDEF' 00360923 ARD 10 '123456' T 17.5 -11 2.5E0 00370923 ARD 11 -5,'2468',T,15.0 00380923 ARD 12 F 'CHAR' -1 0.25 00390923 ARD 13 5 10 15 00400923 ARD 14 -1.25E1 F T -6 '-6' 00410923 ARD 15 F 'ZYXW' 'DCBA' 15.5 00420923 ARD 16 'ONE ',,3,F 00430923 ARD 17 'TWO ', 2, , 2.0 00440923 ARD 18 ,4, 1, 8, ,, 14 00450923 ARD 19 5, -0.25E1, 4*, 'TEST', F 00460923 ARD 20 1 2 3 4 5 00470923 ARD 21 6 7 8/ 9 10 00480923 ARD 22 12045,12 45 00490923 ARD 23 12045 00500923 OL. 62---------------80 00510923 ARD 23 12 00520923 OL. 1----------------------------------------------------------61 00530923 ARD 24 45 00540923 ARD 25 'CAN''T, AND/OR WON''T' 00600923 ARD 26 '1234567890' '12345678' '1234567890123' 00610923 ARD 27 TRUCK .FOUR .FALSE. .TWIN. F12. F7.2 .TRUE. .T=3+4 00620923 ARD 28 T T T T T 00630923 ARD 29 F F/F F F 00640923 ARD 30 / 10 20 30 00650923 ARD 31 1 2 3 4 00660923 ARD 32 5 6 7 8 00670923 00680923 * S P E C I F I C A T I O N S SEGMENT 370 00690923 THE FOLLOWING 9 COMMENT LINES (CZ01, CZ02, ...) CAN BE REPLACED 00910923 FOR IDENTIFYING THE TEST ENVIRONMENT 00920923 00930923 Z01 ZVERS = 'VERSION OF THE COMPILER VALIDATION SYSTEM' 00940923 Z02 ZVERSD = 'CREATION DATE/TIME OF THE COMPILER VALIDATION SYSTEM' 00950923 Z03 ZPROG = 'PROGRAM NAME' 00960923 Z04 ZDATE = 'DATE OF TEST' 00970923 Z05 ZCOMPL = 'COMPILER IDENTIFICATION' 00980923 Z06 ZPROJ = 'PROJECT NUMBER/IDENTIFICATION' 00990923 Z07 ZNAME = 'NAME OF USER' 01000923 Z08 ZTAPE = 'TAPE OWNER/ID' 01010923 Z09 ZTAPED = 'DATE TAPE COPIED' 01020923 01030923 01330923 WRITE REPORT TITLE 01340923 01350923 01430923 * REAL NUMBER APPROXIMATION CRITERIA 01440923 01480923 * HEADING FOR SEGMENT 370 01490923 WRITE DETAIL REPORT HEADERS 01550923 01560923 01630923 T001 TEST 1 - CARD 1 INTEGER 01640923 * TO DELETE TEST THE READ STATEMENTS MUST BE PERFORMED 01670923 FIRST. THEN INCLUDE THE FOLLOWING 2 STATEMENTS 01680923 * IVDELE=IVDELE+1 01690923 WRITE (NUVI,80000) IVTNUM 01700923 * AND COMMENT OUT REMAINING LINES UNTIL NEXT TEST 01710923 TO DELETE TEST SEE NOTES FOR TEST 1 01850923 * TO DELETE TEST SEE NOTES FOR TEST 1 02010923 TO DELETE TEST SEE NOTES TEST 1 02170923 * TO DELETE TEST SEE NOTES FOR TEST 1 02340923 TO DELETE TEST SEE NOTES FOR TEST 1 02500923 ** TO DELETE TEST SEE NOTES FOR TEST 1 02690923 TO DELETE TEST SEE NOTES FOR TEST 1 02930923 * TO DELETE CODE SEE NOTES FOR TEST 1 03110923 TO DELETE TEST SEE NOTES FOR TEST 1 03280923 * TO DELETE TEST SEE NOTES FOR TEST 1 03510923 BLANKS SEPARATING VALUES 03710923 * TO DELETE TEST SEE NOTES FOR TEST 1 03740923 AN IMPLICIT DO-LOOP 03940923 TO DELETE TEST SEE NOTES FOR TEST 1 03970923 TO DELETE CODE SEE NOTES FOR TEST 1 04150923 * TO DELETE TEST SEE NOTES FOR TEST 1 04420923 TO DELETE TEST SEE NOTES FOR TEST 1 04640923 TO DELETE TEST SEE NOTES FOR TEST 1 04870923 TO DELETE TEST SEE NOTES FOR TEST 1 05130923 TO DELETE TEST SEE NOTES FOR TEST 1 05400923 INTERPRETED AS ZEROS 05580923 TO DELETE TEST SEE NOTES FOR TEST 1 05610923 TREATED AS A BLANK WHEN IT 05770923 * SEPARATES TWO INTEGERS 05780923 TO DELETE TEST SEE NOTES FOR TEST 1 05810923 * EMBEDDED IN CHARACTER STRINGS 06140923 TO DELETE TEST SEE NOTES FOR TEST 1 06170923 * VARIABLES OF DIFFERENT LENGTHS 06300923 TO DELETE TEST SEE NOTES FOR TEST 1 06330923 * REPRESENTATIONS 06500923 TO DELETE CODE SEE NOTES FOR TEST 1 06530923 * TO DELETE CODE SEE NOTES FOR TEST 1 06740923 TO DELETE CODE SEE NOTES FOR TEST 1 06920923 * TO BE READ FROM SECOND CARD 07040923 TO DELETE TEST SEE NOTES FOR TEST 1 07080923 * 07210923 BB* **** BBCSUM0 *****07220923 WRITE OUT TEST SUMMARY 07230923 07240923 WRITE OUT REPORT FOOTINGS 07360923 07370923 FORMATS FOR TEST DETAIL LINES 07430923 07440923 FORMAT STATEMENTS FOR PAGE HEADERS 07640923 07650923 07780923 FORMAT STATEMENTS FOR REPORT FOOTINGS 07790923 07800923 07850923 FORMAT STATEMENTS FOR RUN SUMMARY 07860923 07870923 END OF TEST SEGMENT 370 07940923