Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Часть II. Технологии быстрого тестирования и советы. 48* format(' Error: first record is Not a <rep card') 49* call endfil(7)
|
|
| 48* | FORMAT(' | ERROR: FIRST | RECORD IS NOT A | < REP CARD') | |||
| 49* | CALL | ENDFIL(7) | |||||
| 50* | STOP | ||||||
| 51* | END IF | ||||||
| 52* | IF(NEWMEM) | ||||||
| 53* | THEN | ||||||
| 54* | NDX=5 | ||||||
| 55* | CALL | HFIELD(CARD, NDX, CHARS, 80, LEN, CODE) | |||||
| 56* | IF (.NOT.FIRST) | ||||||
| 57* | THEN | ||||||
| 58* | CALL | ENDFIL(6) | |||||
| 5 9* | NRECS=NRECS+RECCNT | ||||||
| 60* | WRITE(7, 7000)OLDMEM, RECCNT | ||||||
| 61* | FORMAT(10X, 4A2, 26X, 15) | ||||||
| 62* | RECCNT=0 | ||||||
| 63* | END IF | ||||||
| 64* | DO INDEX | 1=1, 4 | |||||
| 65* | OLDMEM(I)=CHARS(I) | ||||||
| 66* | END DO | ||||||
| 67* | CALL | SETMEM(CHARS, PATH80, NDEX, PATH40, 3, 6) | |||||
| 68* | FIRST=.FALSE. | ||||||
| 69* | DO INDEX | 1=1, 80 | |||||
| 70* | CARD(I)=CBB | ||||||
| 71* | END DO | ||||||
| 72* | READ(5, 1000, END=100) | CARD | |||||
| 73* | IF(ASCII) | CALL | EBCDIC(2, CARD, 0) | ||||
| 74* | С | WRITE(10, 1000) | CARD | ||||
| 75* | END IF | ||||||
| 76* | WRITE(6, 1000) (CARD (I), 1 = 1, 80) | ||||||
| 77* | RECCNT=RECCNT+1 | ||||||
| 78* | GO TO 1 | ||||||
| 79* | CALL | CLOSEW(5, IERR) | |||||
| 80* | CALL | ENDFIL(6) | |||||
| 81* | NRECS=NRECS+RECCNT | ||||||
| 82* | WRITE(7, 7000)OLDMEM, RECCNT | ||||||
| 83* | WRITE(7, 3000) | NRECS | |||||
| 84* | FORMAT(//, 'THE TOTAL NUMBER OF RECORDS SPLIT WAS: ', 15) | ||||||
| 85* | CALL | ENDFIL(7) | |||||
| 86* | STOP | ||||||
| 87* | END | ||||||
| (STS) -- STATIC ANALYSIS FOR | MODULE " MAIN ", BEGINNING AT LINE 14 | ||||||
| PATH | 1: | THRU37 | EOP | ||||
| PATH | 2: | JUMP35 | THRU37 | EOP |
| MODULE | NAME — | MAIN | ||||||||
| ADVANCED | SOFTWARE | TECHNOLOGY | — FORTRAN | SOFTWARE TESTING | SYSTEM — (STS) | |||||
| DATE: | 12/08/80 | TIME: | 12: 40: 56 | PAGE: | ||||||
| PATH | THRU38 | EOP | ||||||||
| PATH | JUMP7 9 | THRU8 6 | EXIT | |||||||
| PATH | THRU39 | EOP | ||||||||
| PATH | A | THRU39 | В | THRU45 | EOP | |||||
| PATH | A | THRU4 5 | EOP |
| Глава 10. Технологии динамического тестирования и советы | ||||||||||
| PATH | JUMP52 | EOP | ||||||||
| PATH | THRU50 | EXIT | ||||||||
| PATH | JUMP7 6 | THRU78 | JUMP34 | THRU37 | ||||||
| EOP | ||||||||||
| PATH | THRU56 | EOP | ||||||||
| PATH | JUMP64 | THRU66 | EOP | |||||||
| PATH | THRU66 | EOP | ||||||||
| PATH | JUMP64 | THRU66 | EOP | |||||||
| PATH | THRU71 | EOP | ||||||||
| PATH | JUMP69 | THRU71 | EOP | |||||||
| PATH | THRU72 | EOP | ||||||||
| PATH | JUMP79 | THRU8 6 | EXIT | |||||||
| PATH | THRU73 | EOP | ||||||||
| PATH | A | THRU73 | В | THRU78 | JUMP34 | THRU37 | ||||
| EOP | ||||||||||
| PATH | A | THRU7 8 | JUMP34 | THRU37 | EOP | |||||
| STS CYCLOMATIC COMPLEXITY INTERVAL | (11, | |||||||||
| MODULE NAME - MAIN | ||||||||||
| ADVANCED | SOFTWARE | TECHNOLOGY | -- FORTRAN SOFTWARE TESTING SYSTEM •- | (STS) | ||||||
| DATE: 12/08/80 | TIME: 12: 40: 59. | PAGE: | ||||||||
| 88* | SUBROUTINE BANNER(ASCII) | |||||||||
| 89* | IMPLICIT INTEGER*2 (A-Z) | |||||||||
| 90* | LOGICAL ASCII | |||||||||
| 91* | DIMENSION | DATI(8), NDX(1), VAL(2, 2) | ||||||||
| 92* | DATA NOPTS, VAL/l, 2H Y, 2H N, 2HES, 2HO / | |||||||||
| 93* | DO | INDEX | I=l, NOPTS | |||||||
| 94* | NDX(I)=2 | |||||||||
| 95* | END DO | |||||||||
| 96* | IF (ASCII) NDX(1)=1 | |||||||||
| 97* | CALL DT(DATI) | |||||||||
| 98* | WRITE(7, 1000)DATI | |||||||||
| 99* | WRITE(7, 2000) | ((VAL(NDX(I), J), J=l, 2), 1=1, NOPTS) | ||||||||
| 100* | RETURN | |||||||||
| 101* 1000 | FORMAT(' | SPLIT UTILITY', /, | ||||||||
| 102* | & • DATE: ', 4A2, ', TIME: '4A2, | |||||||||
| 103* | & | //, ' OPTIONS SELECTED') | ||||||||
| 104* 2000 | FORMAT(' CONVERT EBCDIC-> ASCII=', 2A2, /) | |||||||||
| 105* | END | |||||||||
| (STS) — | STATIC ANALYSIS | FOR MODULE " BANNER ", BEGINNING AT LINE 93 | ||||||||
| PATH | THRU95 | EOP | ||||||||
| PATH | JUMP93 | THRU95 | EOP | |||||||
| PATH | THRU96 | EOP | ||||||||
| PATH | A | THRU96 | В | THRU100 | EXIT | |||||
| PATH | A | THRU100 | EXIT | |||||||
| STS CYCLOMATIC COMPLEXITY INTERVAL = | (3, | 3) |
THIS IS A NORMAL COMPLETION OF STS -- STATIC ANALYZER RELEASE 3.1
Puc. 10.2. Автоматизированный вывод листинга ветвей и значений показателей циклома-тической сложности, выполняемый системой STS.