-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFM254.FOR
651 lines (650 loc) · 51.4 KB
/
FM254.FOR
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
PROGRAM FM254
PROGRAM FM254 00010254
C 00020254
C 00030254
C 00040254
C THIS ROUTINE IS A TEST OF THE ELSE IF-BLOCK. TESTS WITHIN THIS00050254
C ROUTINE ARE FOR THE SYNTAX OF THE BASIC ELSE IF STATEMENT AND 00060254
C ELSE IF-BLOCK STRUCTURE. 00070254
C 00080254
C REFERENCES 00090254
C AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN, 00100254
C X3.9-1977 00110254
C SECTION 11.7, ELSE IF STATEMENT 00120254
C SECTION 11.7.1, ELSE IF-BLOCK 00130254
C SECTION 11.7.2, EXECUTION OF THE ELSE IF STATEMENT 00140254
C 00150254
C 00160254
C 00170254
C 00180254
C ******************************************************************00190254
C A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE 00200254
C BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN 00210254
C X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY. THE 00220254
C FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT 00230254
C ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM. EACH AUDIT00240254
C ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS 00250254
C OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING00260254
C THE RESULT OF EXECUTING THESE TESTS. 00270254
C 00280254
C THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES 00290254
C FOUND IN THE SUBSET LEVEL OF THE STANDARD. 00300254
C 00310254
C SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO 00320254
C NATIONAL INSTITUTE OF STANDARDS AND TECHNOLOGY 00330254
C SOFTWARE STANDARDS VALIDATION GROUP 00340254
C BUILDING 225 RM A266 00350254
C GAITHERSBURG, MD 20899 00360254
C ******************************************************************00370254
C 00380254
C 00390254
IMPLICIT LOGICAL (L) 00400254
IMPLICIT CHARACTER*14 (C) 00410254
C 00420254
DIMENSION LADN11(2) 00430254
LOGICAL LVTN01, LVTN02, LATN11(2), LADN11 00440254
DATA LADN11/.TRUE., .FALSE./ 00450254
C 00460254
C 00470254
C **** LOGICAL STATEMENT FUNCTION REFERENCED IN TEST 4 **** 00480254
C 00490254
LFIS01 ( L ) = L .AND. L 00500254
C 00510254
C 00520254
C 00530254
C 00540254
C 00550254
C INITIALIZATION SECTION. 00560254
C 00570254
C INITIALIZE CONSTANTS 00580254
C ******************** 00590254
C I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER 00600254
I01 = 5 00610254
C I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER 00620254
I02 = 6 00630254
C SYSTEM ENVIRONMENT SECTION 00640254
C 00650254
CX010 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.00660254
C THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5 00670254
C (UNIT NUMBER FOR CARD READER). 00680254
CX011 THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD00690254
C THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00700254
C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE. 00710254
C 00720254
CX020 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.00730254
C THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6 00740254
C (UNIT NUMBER FOR PRINTER). 00750254
CX021 THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.00760254
C THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL 00770254
C FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE. 00780254
C 00790254
IVPASS = 0 00800254
IVFAIL = 0 00810254
IVDELE = 0 00820254
ICZERO = 0 00830254
C 00840254
C WRITE OUT PAGE HEADERS 00850254
C 00860254
WRITE (I02,90002) 00870254
WRITE (I02,90006) 00880254
WRITE (I02,90008) 00890254
WRITE (I02,90004) 00900254
WRITE (I02,90010) 00910254
WRITE (I02,90004) 00920254
WRITE (I02,90016) 00930254
WRITE (I02,90001) 00940254
WRITE (I02,90004) 00950254
WRITE (I02,90012) 00960254
WRITE (I02,90014) 00970254
WRITE (I02,90004) 00980254
C 00990254
C 01000254
C 01010254
C THE SYNTAX OF THE ELSE IF STATEMENTS IN THE TESTS TO FOLLOW IS 01020254
C 01030254
C IF ( E1 ) THEN 01040254
C IF-BLOCK 01050254
C ELSE IF ( E2 ) THEN 01060254
C ELSE IF-BLOCK 01070254
C END IF 01080254
C 01090254
C THE NEXT FOUR TESTS WILL USE THE FOLLOWING COMBINATIONS OF TRUE 01100254
C AND FALSE FOR E1 AND E2 AS SHOWN BELOW - 01110254
C TEST NUMBER 1 2 3 4 01120254
C E1 F F T T 01130254
C E2 T F T F 01140254
C 01150254
C 01160254
C 01170254
C 01180254
C **** FCVS PROGRAM 254 - TEST 001 **** 01190254
C 01200254
C TEST 001 USES A VERY SIMPLE ELSE IF STATEMENT. THE EXPRESSION 01210254
C WITHIN THE PARENTHESES IS THE LOGICAL CONSTANT .TRUE. AND THE 01220254
C EXECUTABLE STATEMENT WITHIN THE ELSE IF-BLOCK OF LEVEL ONE IS AN 01230254
C INTEGER ARITHMETIC ASSIGNMENT STATEMENT. IN THIS TEST THE LOGICAL01240254
C EXPRESSION E1 IS .FALSE. SO THE IF-BLOCK SHOULD NOT BE EXECUTED. 01250254
C THE LOGICAL EXPRESSION E2 IS .TRUE. SO THE ELSE IF-BLOCK SHOULD 01260254
C BE EXECUTED. 01270254
C 01280254
C 01290254
IVTNUM = 1 01300254
IF (ICZERO) 30010, 0010, 30010 01310254
0010 CONTINUE 01320254
IVCOMP = 1 01330254
IF ( .FALSE. ) THEN 01340254
IVCOMP = IVCOMP * 2 01350254
ELSE IF ( .TRUE. ) THEN 01360254
IVCOMP = IVCOMP * 3 01370254
END IF 01380254
C 01390254
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 01400254
C 01410254
IVCORR = 3 01420254
40010 IF ( IVCOMP - 3 ) 20010, 10010, 20010 01430254
30010 IVDELE = IVDELE + 1 01440254
WRITE (I02,80000) IVTNUM 01450254
IF (ICZERO) 10010, 0021, 20010 01460254
10010 IVPASS = IVPASS + 1 01470254
WRITE (I02,80002) IVTNUM 01480254
GO TO 0021 01490254
20010 IVFAIL = IVFAIL + 1 01500254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01510254
0021 CONTINUE 01520254
C 01530254
C **** FCVS PROGRAM 254 - TEST 002 **** 01540254
C 01550254
C TEST 002 HAS E1 .FALSE. AND E2 .FALSE.. NEITHER THE IF-BLOCK 01560254
C NOR THE ELSE IF-BLOCK SHOULD BE EXECUTED. 01570254
C 01580254
C 01590254
IVTNUM = 2 01600254
IF (ICZERO) 30020, 0020, 30020 01610254
0020 CONTINUE 01620254
IVCOMP = 1 01630254
LVON01 = .FALSE. 01640254
LVON02 = .FALSE. 01650254
IF ( LVON01 ) THEN 01660254
IVCOMP = IVCOMP * 2 01670254
ELSE IF ( LVON02 ) THEN 01680254
IVCOMP = IVCOMP * 3 01690254
END IF 01700254
IVCORR = 1 01710254
40020 IF ( IVCOMP - 1 ) 20020, 10020, 20020 01720254
30020 IVDELE = IVDELE + 1 01730254
WRITE (I02,80000) IVTNUM 01740254
IF (ICZERO) 10020, 0031, 20020 01750254
10020 IVPASS = IVPASS + 1 01760254
WRITE (I02,80002) IVTNUM 01770254
GO TO 0031 01780254
20020 IVFAIL = IVFAIL + 1 01790254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 01800254
0031 CONTINUE 01810254
C 01820254
C **** FCVS PROGRAM 254 - TEST 003 **** 01830254
C 01840254
C TEST 003 HAS E1 AS .TRUE. AND E2 AS .TRUE.. ONLY THE IF-BLOCK 01850254
C SHOULD BE EXECUTED. THE ELSE IF-BLOCK SHOULD NOT BE EXECUTED. 01860254
C 01870254
C 01880254
IVTNUM = 3 01890254
IF (ICZERO) 30030, 0030, 30030 01900254
0030 CONTINUE 01910254
IVCOMP = 1 01920254
LVON01 = .TRUE. 01930254
LVON02 = .TRUE. 01940254
LVTN01 = LVON01 01950254
LVTN02 = LVON02 01960254
IF ( LVTN01 ) THEN 01970254
IVCOMP = IVCOMP * 2 01980254
ELSE IF ( LVTN02 ) THEN 01990254
IVCOMP = IVCOMP * 3 02000254
END IF 02010254
C 02020254
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****02030254
C 02040254
IVCORR = 2 02050254
40030 IF ( IVCOMP - 2 ) 20030, 10030, 20030 02060254
30030 IVDELE = IVDELE + 1 02070254
WRITE (I02,80000) IVTNUM 02080254
IF (ICZERO) 10030, 0041, 20030 02090254
10030 IVPASS = IVPASS + 1 02100254
WRITE (I02,80002) IVTNUM 02110254
GO TO 0041 02120254
20030 IVFAIL = IVFAIL + 1 02130254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02140254
0041 CONTINUE 02150254
C 02160254
C **** FCVS PROGRAM 254 - TEST 004 **** 02170254
C 02180254
C TEST 004 HAS E1 AS .TRUE. AND E2 AS .FALSE.. ONLY THE IF-BLOCK02190254
C SHOULD BE EXECUTED. THE ELSE IF-BLOCK SHOULD NOT BE EXECUTED. 02200254
C 02210254
C 02220254
IVTNUM = 4 02230254
IF (ICZERO) 30040, 0040, 30040 02240254
0040 CONTINUE 02250254
IVCOMP = 1 02260254
LVON01 = .TRUE. 02270254
LVTN01 = LFIS01 ( LVON01 ) 02280254
LVON02 = .FALSE. 02290254
IF ( LVTN01 ) THEN 02300254
IVCOMP = IVCOMP * 2 02310254
ELSE IF ( LFIS01 ( LVON02 ) ) THEN 02320254
IVCOMP = IVCOMP * 3 02330254
END IF 02340254
C 02350254
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****02360254
C 02370254
IVCORR = 2 02380254
40040 IF ( IVCOMP - 2 ) 20040, 10040, 20040 02390254
30040 IVDELE = IVDELE + 1 02400254
WRITE (I02,80000) IVTNUM 02410254
IF (ICZERO) 10040, 0051, 20040 02420254
10040 IVPASS = IVPASS + 1 02430254
WRITE (I02,80002) IVTNUM 02440254
GO TO 0051 02450254
20040 IVFAIL = IVFAIL + 1 02460254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02470254
0051 CONTINUE 02480254
C 02490254
C 02500254
C THE SYNTAX OF THE ELSE IF STATEMENTS IN THE TESTS TO FOLLOW IS 02510254
C 02520254
C IF ( E1 ) THEN 02530254
C IF-BLOCK 1 02540254
C ELSE IF ( E2 ) THEN 02550254
C ELSE IF-BLOCK 1 02560254
C ELSE IF ( E3 ) THEN 02570254
C ELSE IF-BLOCK 2 02580254
C END IF 02590254
C 02600254
C 02610254
C 02620254
C **** FCVS PROGRAM 254 - TEST 005 **** 02630254
C 02640254
C TEST 005 HAS E1 AS TRUE. E2 AND E3 ARE FALSE. ONLY IF-BLOCK 102650254
C SHOULD BE EXECUTED. ELSE IF-BLOCKS 1 AND 2 SHOULD NOT EXECUTE. 02660254
C 02670254
C 02680254
IVTNUM = 5 02690254
IF (ICZERO) 30050, 0050, 30050 02700254
0050 CONTINUE 02710254
IVCOMP = 1 02720254
C LADN11(1) IS SET TO .TRUE. IN A DATA STATEMENT. 02730254
LVON02 = .FALSE. 02740254
LVON03 = .FALSE. 02750254
IF ( LADN11(1) ) THEN 02760254
IVCOMP = IVCOMP * 2 02770254
ELSE IF ( LVON02 ) THEN 02780254
IVCOMP = IVCOMP * 3 02790254
ELSE IF ( LVON03 ) THEN 02800254
IVCOMP = IVCOMP * 5 02810254
END IF 02820254
C 02830254
C **** IVCOMP IS DETERMINED BY IVCOMP = 2 = 1 * 2 ****02840254
C 02850254
IVCORR = 2 02860254
40050 IF ( IVCOMP - 2 ) 20050, 10050, 20050 02870254
30050 IVDELE = IVDELE + 1 02880254
WRITE (I02,80000) IVTNUM 02890254
IF (ICZERO) 10050, 0061, 20050 02900254
10050 IVPASS = IVPASS + 1 02910254
WRITE (I02,80002) IVTNUM 02920254
GO TO 0061 02930254
20050 IVFAIL = IVFAIL + 1 02940254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 02950254
0061 CONTINUE 02960254
C 02970254
C **** FCVS PROGRAM 254 - TEST 006 **** 02980254
C 02990254
C TEST 006 HAS E1 AS FALSE, E2 AS TRUE, AND E3 AS FALSE. ONLY 03000254
C ELSE IF-BLOCK 1 SHOULD EXECUTE. IF-BLOCK 1 AND ELSE IF-BLOCK 2 03010254
C SHOULD NOT EXECUTE. 03020254
C 03030254
C 03040254
IVTNUM = 6 03050254
IF (ICZERO) 30060, 0060, 30060 03060254
0060 CONTINUE 03070254
IVCOMP = 1 03080254
LVON01 = .FALSE. 03090254
LATN11(2) = .TRUE. 03100254
LVON03 = .FALSE. 03110254
IF ( LVON01 ) THEN 03120254
IVCOMP = IVCOMP * 2 03130254
ELSE IF ( LATN11(2) ) THEN 03140254
IVCOMP = IVCOMP * 3 03150254
ELSE IF ( LVON03 ) THEN 03160254
IVCOMP = IVCOMP * 5 03170254
END IF 03180254
C 03190254
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****03200254
C 03210254
IVCORR = 3 03220254
40060 IF ( IVCOMP - 3 ) 20060, 10060, 20060 03230254
30060 IVDELE = IVDELE + 1 03240254
WRITE (I02,80000) IVTNUM 03250254
IF (ICZERO) 10060, 0071, 20060 03260254
10060 IVPASS = IVPASS + 1 03270254
WRITE (I02,80002) IVTNUM 03280254
GO TO 0071 03290254
20060 IVFAIL = IVFAIL + 1 03300254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03310254
0071 CONTINUE 03320254
C 03330254
C **** FCVS PROGRAM 254 - TEST 007 **** 03340254
C 03350254
C TEST 007 HAS E1 AS FALSE, E2 AS FALSE, AND E3 AS TRUE. ONLY 03360254
C ELSE IF-BLOCK 2 SHOULD BE EXECUTED. IF-BLOCK 1 AND ELSE IF-BLOCK 03370254
C 1 SHOULD NOT EXECUTE. 03380254
C 03390254
C 03400254
IVTNUM = 7 03410254
IF (ICZERO) 30070, 0070, 30070 03420254
0070 CONTINUE 03430254
IVCOMP = 1 03440254
LVON01 = .FALSE. 03450254
LVON02 = .FALSE. 03460254
LVON03 = .TRUE. 03470254
IF ( LVON01 ) THEN 03480254
IVCOMP = IVCOMP * 2 03490254
ELSE IF ( LVON02 ) THEN 03500254
IVCOMP = IVCOMP * 3 03510254
ELSE IF ( LVON03 ) THEN 03520254
IVCOMP = IVCOMP * 5 03530254
END IF 03540254
C 03550254
C **** IVCOMP IS DETERMINED BY IVCOMP = 5 = 1 * 5 ****03560254
C 03570254
IVCORR = 5 03580254
40070 IF ( IVCOMP - 5 ) 20070, 10070, 20070 03590254
30070 IVDELE = IVDELE + 1 03600254
WRITE (I02,80000) IVTNUM 03610254
IF (ICZERO) 10070, 0081, 20070 03620254
10070 IVPASS = IVPASS + 1 03630254
WRITE (I02,80002) IVTNUM 03640254
GO TO 0081 03650254
20070 IVFAIL = IVFAIL + 1 03660254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 03670254
0081 CONTINUE 03680254
C 03690254
C **** FCVS PROGRAM 254 - TEST 008 **** 03700254
C 03710254
C TEST 008 HAS E1 AS FALSE. BOTH E2 AND E3 ARE TRUE. ONLY ELSE 03720254
C IF-BLOCK 1 SHOULD EXECUTE. IF-BLOCK 1 AND ELSE IF-BLOCK 2 SHOULD 03730254
C NOT EXECUTE. THIS IS A TEST OF THE LOGIC FLOW WHEN ONE OF THE 03740254
C EXPRESSIONS IN A STRING OF ELSE IF BLOCK STRUCTURES IS TRUE. ONLY03750254
C THAT PARTICULAR ELSE IF-BLOCK SHOULD BE EXECUTED. THE REST OF THE03760254
C STRING SHOULD BE SKIPPED. 03770254
C 03780254
C 03790254
IVTNUM = 8 03800254
IF (ICZERO) 30080, 0080, 30080 03810254
0080 CONTINUE 03820254
IVCOMP = 1 03830254
LVON01 = .FALSE. 03840254
LVON02 = .TRUE. 03850254
LVON03 = .TRUE. 03860254
IF ( LVON01 ) THEN 03870254
IVCOMP = IVCOMP * 2 03880254
ELSE IF ( LVON02 ) THEN 03890254
IVCOMP = IVCOMP * 3 03900254
ELSE IF ( LVON03 ) THEN 03910254
IVCOMP = IVCOMP * 5 03920254
END IF 03930254
C 03940254
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****03950254
C 03960254
IVCORR = 3 03970254
40080 IF ( IVCOMP - 3 ) 20080, 10080, 20080 03980254
30080 IVDELE = IVDELE + 1 03990254
WRITE (I02,80000) IVTNUM 04000254
IF (ICZERO) 10080, 0091, 20080 04010254
10080 IVPASS = IVPASS + 1 04020254
WRITE (I02,80002) IVTNUM 04030254
GO TO 0091 04040254
20080 IVFAIL = IVFAIL + 1 04050254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04060254
0091 CONTINUE 04070254
C 04080254
C 04090254
C THE FOLLOWING TWO TESTS ARE TO CHECK THE EXECUTION OF AN ELSE 04100254
C IF STATEMENT WITH AN EMPTY ELSE IF-BLOCK. THE SYNTAX FOR THE TWO 04110254
C TESTS IS AS FOLLOWS - 04120254
C 04130254
C IF ( E1 ) THEN 04140254
C IF-BLOCK 1 04150254
C ELSE IF ( E2 ) THEN 04160254
C ELSE IF ( E3 ) THEN 04170254
C ELSE IF-BLOCK 1 04180254
C END IF 04190254
C 04200254
C 04210254
C 04220254
C **** FCVS PROGRAM 254 - TEST 009 **** 04230254
C 04240254
C TEST 009 HAS E1 FALSE, E2 TRUE, AND E3 AS TRUE. THE STRUCTURE 04250254
C ELSE IF ( E2 ) THEN 04260254
C IS FOLLOWED BY AN EMPTY ELSE IF-BLOCK ALLOWED IN SECTION 11.7.1. 04270254
C IN SECTION 11.7.2, IF THE VALUE OF THE EXPRESSION IS TRUE AND THE04280254
C ELSE IF-BLOCK IS EMPTY, CONTROL IS TRANSFERRED TO THE NEXT END IF 04290254
C STATEMENT THAT HAS THE SAME IF-LEVEL AS THE ELSE IF STATEMENT. 04300254
C NEITHER IF-BLOCK 1 NOR ELSE IF-BLOCK 1 SHOULD BE EXECUTED. 04310254
C 04320254
C 04330254
IVTNUM = 9 04340254
IF (ICZERO) 30090, 0090, 30090 04350254
0090 CONTINUE 04360254
IVCOMP = 1 04370254
LVON01 = .FALSE. 04380254
LVON02 = .TRUE. 04390254
LVON03 = .TRUE. 04400254
IF ( LVON01 ) THEN 04410254
IVCOMP = IVCOMP * 2 04420254
ELSE IF ( LVON02 ) THEN 04430254
ELSE IF ( LVON03 ) THEN 04440254
IVCOMP = IVCOMP * 3 04450254
END IF 04460254
IVCORR = 1 04470254
40090 IF ( IVCOMP - 1 ) 20090, 10090, 20090 04480254
30090 IVDELE = IVDELE + 1 04490254
WRITE (I02,80000) IVTNUM 04500254
IF (ICZERO) 10090, 0101, 20090 04510254
10090 IVPASS = IVPASS + 1 04520254
WRITE (I02,80002) IVTNUM 04530254
GO TO 0101 04540254
20090 IVFAIL = IVFAIL + 1 04550254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04560254
0101 CONTINUE 04570254
C 04580254
C **** FCVS PROGRAM 254 - TEST 010 **** 04590254
C 04600254
C TEST 010 ALSO HAS AN EMPTY ELSE IF-BLOCK. E1 AND E2 ARE FALSE.04610254
C E3 IS TRUE. ONLY ELSE IF-BLOCK 1 SHOULD BE EXECUTED. IF-BLOCK 1 04620254
C SHOULD NOT BE EXECUTED. IN SECTION 11.7.2, IF THE VALUE OF THE 04630254
C EXPRESSION IS FALSE, CONTROL IS TRANSFERRED TO THE NEXT ELSE IF, 04640254
C ELSE, OR END IF STATEMENT THAT HAS THE SAME IF-LEVEL AS THE ELSE 04650254
C IF STATEMENT. 04660254
C 04670254
C 04680254
IVTNUM = 10 04690254
IF (ICZERO) 30100, 0100, 30100 04700254
0100 CONTINUE 04710254
IVCOMP = 1 04720254
LVON01 = .FALSE. 04730254
LVON02 = .FALSE. 04740254
LVON03 = .TRUE. 04750254
IF ( LVON01 ) THEN 04760254
IVCOMP = IVCOMP * 2 04770254
ELSE IF ( LVON02 ) THEN 04780254
ELSE IF ( LVON03 ) THEN 04790254
IVCOMP = IVCOMP * 3 04800254
END IF 04810254
C 04820254
C **** IVCOMP IS DETERMINED BY IVCOMP = 3 = 1 * 3 ****04830254
C 04840254
IVCORR = 3 04850254
40100 IF ( IVCOMP - 3 ) 20100, 10100, 20100 04860254
30100 IVDELE = IVDELE + 1 04870254
WRITE (I02,80000) IVTNUM 04880254
IF (ICZERO) 10100, 0111, 20100 04890254
10100 IVPASS = IVPASS + 1 04900254
WRITE (I02,80002) IVTNUM 04910254
GO TO 0111 04920254
20100 IVFAIL = IVFAIL + 1 04930254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 04940254
0111 CONTINUE 04950254
C 04960254
C 04970254
C THE NEXT TWO TESTS USE THE ELSE IF STRUCTURE INSIDE A BLOCKED 04980254
C IF STRUCTURE OF LEVEL 2 AS FOLLOWS - 04990254
C 05000254
C IF ( E1 ) THEN 05010254
C IF-BLOCK 1 05020254
C IF ( E2 ) THEN 05030254
C IF-BLOCK 2 05040254
C ELSE IF ( E3 ) THEN 05050254
C ELSE IF-BLOCK 1 05060254
C ELSE IF ( E4 ) THEN 05070254
C ELSE IF-BLOCK 2 05080254
C END IF 05090254
C ELSE IF ( E5 ) THEN 05100254
C ELSE IF-BLOCK 3 05110254
C ELSE IF ( E6 ) THEN 05120254
C ELSE IF-BLOCK 4 05130254
C END IF 05140254
C 05150254
C 05160254
C 05170254
C **** FCVS PROGRAM 254 - TEST 011 **** 05180254
C 05190254
C TEST 011 HAS E1 TRUE, E2 AND E3 AS FALSE, E4, E5, AND ALSO 05200254
C E6 AS TRUE. IF-BLOCK 1, AND ELSE IF-BLOCK 2 SHOULD BE EXECUTED. 05210254
C IF-BLOCK 2, ELSE IF-BLOCK 1, 3, AND 4 SHOULD NOT BE EXECUTED. 05220254
C 05230254
C 05240254
IVTNUM = 11 05250254
IF (ICZERO) 30110, 0110, 30110 05260254
0110 CONTINUE 05270254
IVCOMP = 1 05280254
LVON01 = .TRUE. 05290254
LVON02 = .FALSE. 05300254
LVON03 = .FALSE. 05310254
LVON04 = .TRUE. 05320254
LVON05 = .TRUE. 05330254
LVON06 = .TRUE. 05340254
IF ( LVON01 ) THEN 05350254
IVCOMP = IVCOMP * 2 05360254
IF ( LVON02 ) THEN 05370254
IVCOMP = IVCOMP * 3 05380254
ELSE IF ( LVON03 ) THEN 05390254
IVCOMP = IVCOMP * 5 05400254
ELSE IF ( LVON04 ) THEN 05410254
IVCOMP = IVCOMP * 7 05420254
END IF 05430254
ELSE IF ( LVON05 ) THEN 05440254
IVCOMP = IVCOMP * 11 05450254
ELSE IF ( LVON06 ) THEN 05460254
IVCOMP = IVCOMP * 13 05470254
END IF 05480254
C 05490254
C **** IVCOMP IS DETERMINED BY IVCOMP = 14 = 1 * 2 * 7 ****05500254
C 05510254
IVCORR = 14 05520254
40110 IF ( IVCOMP - 14 ) 20110, 10110, 20110 05530254
30110 IVDELE = IVDELE + 1 05540254
WRITE (I02,80000) IVTNUM 05550254
IF (ICZERO) 10110, 0121, 20110 05560254
10110 IVPASS = IVPASS + 1 05570254
WRITE (I02,80002) IVTNUM 05580254
GO TO 0121 05590254
20110 IVFAIL = IVFAIL + 1 05600254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 05610254
0121 CONTINUE 05620254
C 05630254
C **** FCVS PROGRAM 254 - TEST 012 **** 05640254
C 05650254
C TEST 012 HAS E1 AS FALSE, E2, E3, AND E4 ARE TRUE, E5 AS FALSE,05660254
C AND E6 IS TRUE. ONLY ELSE IF-BLOCK 4 SHOULD BE EXECUTED. NO 05670254
C OTHER IF-BLOCK OR ELSE IF-BLOCK SHOULD BE EXECUTED. 05680254
C 05690254
C 05700254
IVTNUM = 12 05710254
IF (ICZERO) 30120, 0120, 30120 05720254
0120 CONTINUE 05730254
IVCOMP = 1 05740254
LVON01 = .FALSE. 05750254
LVON02 = .TRUE. 05760254
LVON03 = .TRUE. 05770254
LVON04 = .TRUE. 05780254
LVON05 = .FALSE. 05790254
LVON06 = .TRUE. 05800254
IF ( LVON01 ) THEN 05810254
IVCOMP = IVCOMP * 2 05820254
IF ( LVON02 ) THEN 05830254
IVCOMP = IVCOMP * 3 05840254
ELSE IF ( LVON03 ) THEN 05850254
IVCOMP = IVCOMP * 5 05860254
ELSE IF ( LVON04 ) THEN 05870254
IVCOMP = IVCOMP * 7 05880254
END IF 05890254
ELSE IF ( LVON05 ) THEN 05900254
IVCOMP = IVCOMP * 11 05910254
ELSE IF ( LVON06 ) THEN 05920254
IVCOMP = IVCOMP * 13 05930254
END IF 05940254
C 05950254
C **** IVCOMP IS DETERMINED BY IVCOMP = 13 = 1 * 13 ****05960254
C 05970254
IVCORR = 13 05980254
40120 IF ( IVCOMP - 13 ) 20120, 10120, 20120 05990254
30120 IVDELE = IVDELE + 1 06000254
WRITE (I02,80000) IVTNUM 06010254
IF (ICZERO) 10120, 0131, 20120 06020254
10120 IVPASS = IVPASS + 1 06030254
WRITE (I02,80002) IVTNUM 06040254
GO TO 0131 06050254
20120 IVFAIL = IVFAIL + 1 06060254
WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR 06070254
0131 CONTINUE 06080254
C 06090254
C 06100254
C WRITE OUT TEST SUMMARY 06110254
C 06120254
WRITE (I02,90004) 06130254
WRITE (I02,90014) 06140254
WRITE (I02,90004) 06150254
WRITE (I02,90000) 06160254
WRITE (I02,90004) 06170254
WRITE (I02,90020) IVFAIL 06180254
WRITE (I02,90022) IVPASS 06190254
WRITE (I02,90024) IVDELE 06200254
STOP 06210254
90001 FORMAT (1H ,24X,5HFM254) 06220254
90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM254) 06230254
C 06240254
C FORMATS FOR TEST DETAIL LINES 06250254
C 06260254
80000 FORMAT (1H ,4X,I5,6X,7HDELETED) 06270254
80002 FORMAT (1H ,4X,I5,7X,4HPASS) 06280254
80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6) 06290254
80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5) 06300254
80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14) 06310254
C 06320254
C FORMAT STATEMENTS FOR PAGE HEADERS 06330254
C 06340254
90002 FORMAT (1H1) 06350254
90004 FORMAT (1H ) 06360254
90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM) 06370254
90008 FORMAT (1H ,21X,11HVERSION 2.1) 06380254
90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978) 06390254
90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT) 06400254
90014 FORMAT (1H ,5X,46H----------------------------------------------) 06410254
90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST) 06420254
C 06430254
C FORMAT STATEMENTS FOR RUN SUMMARY 06440254
C 06450254
90020 FORMAT (1H ,19X,I5,13H TESTS FAILED) 06460254
90022 FORMAT (1H ,19X,I5,13H TESTS PASSED) 06470254
90024 FORMAT (1H ,19X,I5,14H TESTS DELETED) 06480254
END 06490254