PROGRAM FM202
C
C
C         THIS ROUTINE IS THE FIRST ROUTINE TO TEST CHARACTER DATA
C     TYPES.  CHARACTER TYPE-STATEMENTS SPECIFY CHARACTER VARIABLES OF
C     LENGTH ONE AND LENGTH TWO.  THE TESTS IN THIS ROUTINE DETERMINE
C     THAT THE FOLLOWING LANGUAGE FEATURES FUNCTION CORRECTLY.
C
C         (1) CHARACTER ASSIGNMENT STATEMENTS OF THE FORM
C
C             CHARACTER VARIABLE = CHARACTER CONSTANT
C             CHARACTER VARIABLE = CHARACTER VARIABLE
C
C         WHERE THE VARIABLES AND CONSTANTS ARE THE SAME LENGTH.
C
C         (2)  THE REPRESENTATION OF AN APOSTROPHE IN A CHARACTER
C         CONSTANT IS TWO CONSECUTIVE APOSTROPHES WITH NO INTERVENING
C         BLANKS.
C
C         (3)  CHARACTER RELATIONAL EXPRESSION OF THE FORM
C
C              CHARACTER VARIABLE  RELOP  CHARACTER CONSTANT
C              CHARACTER CONSTANT  RELOP  CHARACTER VARIABLE
C              CHARACTER VARIABLE  RELOP  CHARACTER VARIABLE
C
C         WHERE THE CHARACTER ENTITIES ARE THE SAME LENGTH.
C
C         (4)  CHARACTER RELATIONAL EXPRESSIONS OF THE FORM
C
C              CHARACTER VARIABLE .EQ. CHARACTER CONSTANT
C
C         ARE USED IN THIS ROUTINE TO VERIFY THE CHARACTER ASSIGNMENT
C         STATEMENTS.
C
C     REFERENCES
C        AMERICAN NATIONAL STANDARD PROGRAMMING LANGUAGE FORTRAN,
C              X3.9-1978
C
C         SECTION 4.8,   CHARACTER TYPE
C         SECTION 4.8.1, CHARACTER CONSTANT
C         SECTION 6.2,   CHARACTER EXPRESSIONS
C         SECTION 6.3.4, CHARACTER RELATIONAL EXPRESSION
C         SECTION 6.3.5, INTERPRETATION OF CHARACTER RELATIONAL
C                          EXPRESSIONS
C         SECTION 8.4.2, CHARACTER TYPE-STATEMENT
C         SECTION 10.4,  CHARACTER ASSIGNMENT STATEMENT
C
C
C
C     ******************************************************************
C         A COMPILER VALIDATION SYSTEM FOR THE FORTRAN LANGUAGE
C     BASED ON SPECIFICATIONS AS DEFINED IN AMERICAN STANDARD FORTRAN
C     X3.9-1978, HAS BEEN DEVELOPED BY THE DEPARTMENT OF THE NAVY.  THE
C     FORTRAN COMPILER VALIDATION SYSTEM (FCVS) CONSISTS OF AUDIT
C     ROUTINES, THEIR RELATED DATA, AND AN EXECUTIVE SYSTEM.  EACH AUDIT
C     ROUTINE IS A FORTRAN PROGRAM OR SUBPROGRAM WHICH INCLUDES TESTS
C     OF SPECIFIC LANGUAGE ELEMENTS AND SUPPORTING PROCEDURES INDICATING
C     THE RESULT OF EXECUTING THESE TESTS.
C
C     THIS PARTICULAR PROGRAM OR SUBPROGRAM CONTAINS ONLY FEATURES
C     FOUND IN THE SUBSET LEVEL OF THE STANDARD.
C
C           SUGGESTIONS AND COMMENTS SHOULD BE FORWARDED TO
C                    DEPARTMENT OF THE NAVY
C                    FEDERAL COBOL COMPILER TESTING SERVICE
C                    WASHINGTON, D.C.   20376
C
C     ******************************************************************
C
C
      IMPLICIT LOGICAL (L)
      IMPLICIT CHARACTER*14 (C)
C
      CHARACTER *1  CVTN01, CVTN02
      CHARACTER *2  CVTN03, CVTN04
C
C
C
C     INITIALIZATION SECTION.
C
C     INITIALIZE CONSTANTS
C     ********************
C     I01 CONTAINS THE LOGICAL UNIT NUMBER FOR THE CARD READER
      I01 = 5
C     I02 CONTAINS THE LOGICAL UNIT NUMBER FOR THE PRINTER
      I02 = 6
C     SYSTEM ENVIRONMENT SECTION
C
CX010     THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-010 CONTROL CARD.
C     THE CX010 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I01 = 5
C     (UNIT NUMBER FOR CARD READER).
CX011      THIS CARD IS REPLACED BY CONTENTS OF FEXEC X-011 CONTROL CARD
C     THE CX011 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX010 ABOVE.
C
CX020     THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-020 CONTROL CARD.
C     THE CX020 CARD IS FOR OVERRIDING THE PROGRAM DEFAULT I02 = 6
C     (UNIT NUMBER FOR PRINTER).
CX021     THIS CARD IS PEPLACED BY CONTENTS OF FEXEC X-021 CONTROL CARD.
C     THE CX021 CARD IS FOR SYSTEMS WHICH REQUIRE ADDITIONAL
C     FORTRAN STATEMENTS FOR FILES ASSOCIATED WITH CX020 ABOVE.
C
      IVPASS = 0
      IVFAIL = 0
      IVDELE = 0
      ICZERO = 0
C
C     WRITE OUT PAGE HEADERS
C
      WRITE (I02,90002)
      WRITE (I02,90006)
      WRITE (I02,90008)
      WRITE (I02,90004)
      WRITE (I02,90010)
      WRITE (I02,90004)
      WRITE (I02,90016)
      WRITE (I02,90001)
      WRITE (I02,90004)
      WRITE (I02,90012)
      WRITE (I02,90014)
      WRITE (I02,90004)
C
C
C         TEST 1 THROUGH TEST 6 VERIFY THAT THE CHARACTER ASSIGNMENT
C     STATEMENT
C
C        CHARACTER VARIABLE (LEN 1) = CHARACTER CONSTANT (LEN 1)
C
C     IS CORRECT.  THE CHARACTER RELATIONAL EXPRESSION
C
C        CHARACTER VARIABLE (LEN 1) RELOP CHARACTER CONSTANT (LEN 1)
C
C     IS USED TO VERIFY THE ASSIGNMENT STATEMENT.  BOTH OF THE ABOVE
C     STATEMENTS MUST MEET THE LANGUAGE SPECIFICATIONS FOR THESE TESTS
C     TO PASS.
C
C
C     ****  FCVS PROGRAM 202  -  TEST 001  ****
C
C
      IVTNUM =   1
      IF (ICZERO) 30010, 0010, 30010
 0010 CONTINUE
      IVCOMP = 0
      CVTN01 = ' '
      IVCORR = 1
      IF (CVTN01 .EQ. ' ') IVCOMP = 1
40010 IF (IVCOMP - 1) 20010,10010,20010
30010 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10010, 0021, 20010
10010 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0021
20010 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0021 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 002  ****
C
C
      IVTNUM =   2
      IF (ICZERO) 30020, 0020, 30020
 0020 CONTINUE
      IVCOMP = 0
      CVTN01 = 'M'
      IVCORR = 1
      IF (CVTN01 .EQ. 'M') IVCOMP = 1
40020 IF (IVCOMP - 1) 20020,10020,20020
30020 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10020, 0031, 20020
10020 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0031
20020 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0031 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 003  ****
C
C
      IVTNUM =   3
      IF (ICZERO) 30030, 0030, 30030
 0030 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = '4'
      IF (CVTN01 .EQ. '4') IVCOMP = 1
40030 IF (IVCOMP - 1) 20030,10030,20030
30030 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10030, 0041, 20030
10030 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0041
20030 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0041 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 004  ****
C
C
      IVTNUM =   4
      IF (ICZERO) 30040, 0040, 30040
 0040 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = '='
      IF (CVTN01 .EQ. '=') IVCOMP = 1
40040 IF (IVCOMP - 1) 20040,10040,20040
30040 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10040, 0051, 20040
10040 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0051
20040 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0051 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 005  ****
C
C
      IVTNUM =   5
      IF (ICZERO) 30050, 0050, 30050
 0050 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = '/'
      IF (CVTN01 .EQ. '/') IVCOMP = 1
40050 IF (IVCOMP - 1) 20050,10050,20050
30050 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10050, 0061, 20050
10050 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0061
20050 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0061 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 006  ****
C
C         AN APOSTROPHE IN A CHARACTER CONSTANT IS REPRESENTED BY TWO
C     CONSECUTIVE APOSTROPHES WITH NO INTERVENING BLANKS.
C
      IVTNUM =   6
      IF (ICZERO) 30060, 0060, 30060
 0060 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = ''''
      IF (CVTN01 .EQ. '''') IVCOMP = 1
40060 IF (IVCOMP - 1) 20060,10060,20060
30060 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10060, 0071, 20060
10060 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0071
20060 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0071 CONTINUE
C
C         TEST 7 THROUGH TEST 12 VERIFY THAT THE CHARACTER ASSIGNMENT
C     STATEMENTS
C
C         CHARACTER VARIABLE (LEN 1) = CHARACTER CONSTANT (LEN 1)
C         CHARACTER VARIABLE (LEN 1) = CHARACTER VARIABLE (LEN 1)
C
C     ARE CORRECT.  THE CHARACTER RELATIONAL EXPRESSION
C
C         CHARACTER VARIABLE (LEN 1) .EQ. CHARACTER CONSTANT (LEN 1)
C
C     IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENTS.
C
C
C     ****  FCVS PROGRAM 202  -  TEST 007  ****
C
C
      IVTNUM =   7
      IF (ICZERO) 30070, 0070, 30070
 0070 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = ' '
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. ' ') IVCOMP = 1
40070 IF (IVCOMP - 1) 20070, 10070, 20070
30070 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10070, 0081, 20070
10070 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0081
20070 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0081 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 008  ****
C
C
      IVTNUM =   8
      IF (ICZERO) 30080, 0080, 30080
 0080 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = 'M'
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. 'M') IVCOMP = 1
40080 IF (IVCOMP - 1) 20080,10080,20080
30080 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10080, 0091, 20080
10080 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0091
20080 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0091 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 009  ****
C
C
      IVTNUM =   9
      IF (ICZERO) 30090, 0090, 30090
 0090 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = '4'
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. '4') IVCOMP = 1
40090 IF (IVCOMP - 1) 20090,10090,20090
30090 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10090, 0101, 20090
10090 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0101
20090 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0101 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 010  ****
C
C
      IVTNUM =  10
      IF (ICZERO) 30100, 0100, 30100
 0100 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = '='
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. '=') IVCOMP = 1
40100 IF (IVCOMP - 1) 20100,10100,20100
30100 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10100, 0111, 20100
10100 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0111
20100 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0111 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 011  ****
C
C
      IVTNUM =  11
      IF (ICZERO) 30110, 0110, 30110
 0110 CONTINUE
      IVCOMP =0
      IVCORR = 1
      CVTN01 = '/'
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. '/') IVCOMP = 1
40110 IF (IVCOMP - 1) 20110,10110,20110
30110 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10110, 0121, 20110
10110 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0121
20110 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0121 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 012  ****
C
C         AN APOSTROPHE IN A CHARACTER CONSTANT IS REPRESENTED BY TWO
C     CONSECUTIVE APOSTROPHES WITH NO INTERVENING BLANKS.
C
      IVTNUM =  12
      IF (ICZERO) 30120, 0120, 30120
 0120 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN01 = ''''
      CVTN02 = CVTN01
      IF (CVTN02 .EQ. '''') IVCOMP = 1
40120 IF (IVCOMP - 1) 20120,10120,20120
30120 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10120, 0131, 20120
10120 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0131
20120 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0131 CONTINUE
C
C         TEST 13 THROUGH TEST 18 VERIFY THE RESULTS OF THE CHARACTER
C     RELATIONAL EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS
C     IN THE STATEMENT FORM
C
C         CHARACTER VARIABLE (LEN 1) RELOP CHARACTER CONSTANT (LEN 1).
C
C     THE VARIABLE AND CONSTANT CONTAIN THE CHARACTER DATUM C.
C
      CVTN01 = 'C'
C
C     ****  FCVS PROGRAM 202  -  TEST 013  ****
C
C         RELATIONAL OPERATOR .EQ.
C
      IVTNUM =  13
      IF (ICZERO) 30130, 0130, 30130
 0130 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN01 .EQ. 'C') IVCOMP = 1
40130 IF (IVCOMP - 1) 20130,10130,20130
30130 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10130, 0141, 20130
10130 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0141
20130 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0141 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 014  ****
C
C         RELATIONAL OPERATOR .NE.
C
      IVTNUM =  14
      IF (ICZERO) 30140, 0140, 30140
 0140 CONTINUE
      IVCOMP = 0
      IVCORR = 0
      IF (CVTN01 .NE. 'C') IVCOMP = 1
40140 IF (IVCOMP) 20140,10140,20140
30140 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10140, 0151, 20140
10140 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0151
20140 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0151 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 015  ****
C
C         RELATIONAL OPERATOR .LE.
C
      IVTNUM =  15
      IF (ICZERO) 30150, 0150, 30150
 0150 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN01 .LE. 'C') IVCOMP = 1
      IF (IVCOMP - 1) 20150,10150,20150
30150 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10150, 0161, 20150
10150 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0161
20150 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0161 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 016  ****
C
C         RELATIONAL OPERATOR .LT.
C
      IVTNUM =  16
      IF (ICZERO) 30160, 0160, 30160
 0160 CONTINUE
      IVCOMP=0
      IVCORR=0
      IF (CVTN01 .LT. 'C') IVCOMP = 1
      IF (IVCOMP) 20160,10160,20160
30160 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10160, 0171, 20160
10160 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0171
20160 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0171 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 017  ****
C
C         RELATIONAL OPERATOR .GE.
C
      IVTNUM =  17
      IF (ICZERO) 30170, 0170, 30170
 0170 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN01 .GE. 'C') IVCOMP = 1
40170 IF (IVCOMP - 1) 20170,10170,20170
30170 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10170, 0181, 20170
10170 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0181
20170 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0181 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 018  ****
C
C         RELATIONAL OPERATOR .GT.
C
      IVTNUM =  18
      IF (ICZERO) 30180, 0180, 30180
 0180 CONTINUE
      IVCOMP = 0
      IVCORR = 0
      IF (CVTN01 .GT. 'C') IVCOMP = 1
40180 IF (IVCOMP) 20180,10180,20180
30180 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10180, 0191, 20180
10180 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0191
20180 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0191 CONTINUE
C
C         TEST 19 THROUGH TEST 21 VERIFY THAT THE CHARACTER ASSIGNMENT
C     STATEMENT
C
C         CHARACTER VARIABLE (LEN 2) = CHARACTER CONSTANT (LEN 2)
C
C     OPERATES CORRECTLY.  THE CHARACTER RELATIONAL EXPRESSION
C
C         CHARACTER VARIABLE (LEN 2) .EQ. CHARACTER CONSTANT (LEN 2)
C
C     IS USED TO VERIFY THE RESULT OF THE ASSIGNMENT STATEMENT.
C
C
C     ****  FCVS PROGRAM 202  -  TEST 019  ****
C
C
      IVTNUM =  19
      IF (ICZERO) 30190, 0190, 30190
 0190 CONTINUE
      IVCOMP =0
      IVCORR =1
      CVTN03 = 'AZ'
      IF (CVTN03 .EQ. 'AZ') IVCOMP = 1
40190 IF (IVCOMP - 1) 20190,10190,20190
30190 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10190, 0201, 20190
10190 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0201
20190 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0201 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 020  ****
C
C
      IVTNUM =  20
      IF (ICZERO) 30200, 0200, 30200
 0200 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN03 = 'B'''
      IF (CVTN03 .EQ. 'B''') IVCOMP = 1
40200 IF (IVCOMP - 1) 20200,10200,20200
30200 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10200, 0211, 20200
10200 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0211
20200 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0211 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 021  ****
C
C
      IVTNUM =  21
      IF (ICZERO) 30210, 0210, 30210
 0210 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN03 = '//'
      IF (CVTN03 .EQ. '//') IVCOMP = 1
40210 IF (IVCOMP - 1) 20210,10210,20210
30210 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10210, 0221, 20210
10210 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0221
20210 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0221 CONTINUE
C
C         TEST 22 THROUGH TEST 24 VERIFY THAT THE CHARACTER ASSIGNMENT
C     STATEMENTS
C
C         CHARACTER VARIABLE (LEN 2) = CHARACTER CONSTANT (LEN 2)
C         CHARACTER VARIABLE (LEN 2) = CHARACTER VARIABLE (LEN 2)
C
C     OPERATE CORRECTLY.
C
C
C     ****  FCVS PROGRAM 202  -  TEST 022  ****
C
C
      IVTNUM =  22
      IF (ICZERO) 30220, 0220, 30220
 0220 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN03 = 'AZ'
      CVTN04 = CVTN03
      IF (CVTN04 .EQ. 'AZ') IVCOMP=1
40220 IF (IVCOMP - 1) 20220,10220,20220
30220 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10220, 0231, 20220
10220 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0231
20220 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0231 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 023  ****
C
C
      IVTNUM =  23
      IF (ICZERO) 30230, 0230, 30230
 0230 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN03 = 'B'''
      CVTN04 = CVTN03
      IF (CVTN04 .EQ. 'B''') IVCOMP = 1
40230 IF (IVCOMP - 1) 20230,10230,20230
30230 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10230, 0241, 20230
10230 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0241
20230 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0241 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 024  ****
C
C
      IVTNUM =  24
      IF (ICZERO) 30240, 0240, 30240
 0240 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      CVTN03 = '//'
      CVTN04 = CVTN03
      IF (CVTN04 .EQ. '//') IVCOMP = 1
40240 IF (IVCOMP - 1) 20240,10240,20240
30240 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10240, 0251, 20240
10240 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0251
20240 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0251 CONTINUE
C
C         TEST 25 THROUGH TEST 30 VERIFY THE RESULTS OF THE CHARACTER
C     RELATIONAL EXPRESSION USING EACH OF THE SIX RELATIONAL OPERATORS
C     IN THE EXPRESSION FORM
C
C         CHARACTER VARIABLE (LEN 2) RELOP CHARACTER VARIABLE (LEN 2)
C
C     THE VARIABLES CONTAIN THE CHARACTER DATUM CC.
C
      CVTN03 = 'CC'
      CVTN04 = 'CC'
C
C     ****  FCVS PROGRAM 202  -  TEST 025  ****
C
C         RELATIONAL OPERATOR .EQ.
C
      IVTNUM =  25
      IF (ICZERO) 30250, 0250, 30250
 0250 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN03 .EQ. CVTN04) IVCOMP = 1
40250 IF (IVCOMP - 1) 20250,10250,20250
30250 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10250, 0261, 20250
10250 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0261
20250 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0261 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 026  ****
C
C         RELATIONAL OPERATOR .NE.
C
      IVTNUM =  26
      IF (ICZERO) 30260, 0260, 30260
 0260 CONTINUE
      IVCOMP = 0
      IVCORR = 0
      IF (CVTN03 .NE. CVTN04) IVCOMP = 1
40260 IF (IVCOMP) 20260,10260,20260
30260 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10260, 0271, 20260
10260 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0271
20260 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0271 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 027  ****
C
C         RELATIONAL OPERATOR .LE.
C
      IVTNUM =  27
      IF (ICZERO) 30270, 0270, 30270
 0270 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN03 .LE. CVTN04) IVCOMP = 1
40270 IF (IVCOMP - 1) 20270,10270,20270
30270 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10270, 0281, 20270
10270 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0281
20270 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0281 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 028  ****
C
C         RELATIONAL OPERATOR .LT.
C
      IVTNUM =  28
      IF (ICZERO) 30280, 0280, 30280
 0280 CONTINUE
      IVCOMP = 0
      IVCORR = 0
      IF (CVTN03 .LT. CVTN04) IVCOMP=1
40280 IF (IVCOMP) 20280,10280,20280
30280 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10280, 0291, 20280
10280 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0291
20280 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0291 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 029  ****
C
C         RELATIONAL OPERATOR .GE.
C
      IVTNUM =  29
      IF (ICZERO) 30290, 0290, 30290
 0290 CONTINUE
      IVCOMP = 0
      IVCORR = 1
      IF (CVTN03 .GE. CVTN04) IVCOMP = 1
40290 IF (IVCOMP - 1) 20290,10290,20290
30290 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10290, 0301, 20290
10290 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0301
20290 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0301 CONTINUE
C
C     ****  FCVS PROGRAM 202  -  TEST 030  ****
C
C         RELATIONAL OPERATOR .GT.
C
      IVTNUM =  30
      IF (ICZERO) 30300, 0300, 30300
 0300 CONTINUE
      IVCOMP = 0
      IVCORR = 0
      IF (CVTN03 .GT. CVTN04) IVCOMP = 1
40300 IF (IVCOMP) 20300,10300,20300
30300 IVDELE = IVDELE + 1
      WRITE (I02,80000) IVTNUM
      IF (ICZERO) 10300, 0311, 20300
10300 IVPASS = IVPASS + 1
      WRITE (I02,80002) IVTNUM
      GO TO 0311
20300 IVFAIL = IVFAIL + 1
      WRITE (I02,80010) IVTNUM, IVCOMP, IVCORR
 0311 CONTINUE
C
C
C     WRITE OUT TEST SUMMARY
C
      WRITE (I02,90004)
      WRITE (I02,90014)
      WRITE (I02,90004)
      WRITE (I02,90000)
      WRITE (I02,90004)
      WRITE (I02,90020) IVFAIL
      WRITE (I02,90022) IVPASS
      WRITE (I02,90024) IVDELE
      STOP
90001 FORMAT (1H ,24X,5HFM202)
90000 FORMAT (1H ,20X,20HEND OF PROGRAM FM202)
C
C     FORMATS FOR TEST DETAIL LINES
C
80000 FORMAT (1H ,4X,I5,6X,7HDELETED)
80002 FORMAT (1H ,4X,I5,7X,4HPASS)
80010 FORMAT (1H ,4X,I5,7X,4HFAIL,10X,I6,9X,I6)
80012 FORMAT (1H ,4X,I5,7X,4HFAIL,4X,E12.5,3X,E12.5)
80018 FORMAT (1H ,4X,I5,7X,4HFAIL,2X,A14,1X,A14)
C
C     FORMAT STATEMENTS FOR PAGE HEADERS
C
90002 FORMAT (1H1)
90004 FORMAT (1H )
90006 FORMAT (1H ,10X,34HFORTRAN COMPILER VALIDATION SYSTEM)
90008 FORMAT (1H ,21X,11HVERSION 1.0)
90010 FORMAT (1H ,8X,38HFOR OFFICIAL USE ONLY - COPYRIGHT 1978)
90012 FORMAT (1H ,5X,4HTEST,5X,9HPASS/FAIL,5X,8HCOMPUTED,8X,7HCORRECT)
90014 FORMAT (1H ,5X,46H----------------------------------------------)
90016 FORMAT (1H ,18X,17HSUBSET LEVEL TEST)
C
C     FORMAT STATEMENTS FOR RUN SUMMARY
C
90020 FORMAT (1H ,19X,I5,13H TESTS FAILED)
90022 FORMAT (1H ,19X,I5,13H TESTS PASSED)
90024 FORMAT (1H ,19X,I5,14H TESTS DELETED)
      END