4.4BSD/usr/src/usr.bin/f77/tests/tests/fm031.f
c comment section
c
c fm031
c
c this routine tests arithmetic assignment statements of the
c form
c integer variable = arithmetic expression
c where the arithmetic expression is formed with the arithmetic
c operator -, integer constants and integer variables. some of the
c tests use parentheses to group elements in an arithmetic
c expression.
c
c there are tests where the arithmetic expression contains
c (1) integer constant-integer constant-integer variable
c integer constant-integer variable-integer constant
c integer variable-integer constant-integer constant
c (2) same as (1) but with parentheses to group elements
c in arithmetic expression.
c (3) integer variable - integer variable
c
c references
c american national standard programming language fortran,
c x3.9-1978
c
c section 4.3, integer type
c section 4.3.1, integer constant
c section 6.1, arithmetic expressions
c section 10.1, arithmetic assignment statement
c
c **********************************************************
c
c a compiler validation system for the fortran language
c based on specifications as defined in american national standard
c programming language fortran x3.9-1978, has been developed by the
c federal cobol compiler testing service. the fortran compiler
c validation system (fcvs) consists of audit routines, their related
c data, and an executive system. each audit routine is a fortran
c program, subprogram or function which includes tests of specific
c language elements and supporting procedures indicating the result
c of executing these tests.
c
c this particular program/subprogram/function contains features
c found only in the subset as defined in x3.9-1978.
c
c suggestions and comments should be forwarded to -
c
c department of the navy
c federal cobol compiler testing service
c washington, d.c. 20376
c
c **********************************************************
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 replaced 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 replaced 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 page headers
write (i02,90000)
write (i02,90001)
write (i02,90002)
write (i02, 90002)
write (i02,90003)
write (i02,90002)
write (i02,90004)
write (i02,90002)
write (i02,90011)
write (i02,90002)
write (i02,90002)
write (i02,90005)
write (i02,90006)
write (i02,90002)
c
c test section
c
c test 300 through test 309 contain 2 integer constants, an integer
c variable and operator - in an arithmetic expression.
c
3001 continue
ivtnum = 300
c
c **** test 300 ****
c
if (iczero) 33000, 3000, 33000
3000 continue
ivon01 = 9
ivcomp =ivon01 -3 -4
go to 43000
33000 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43000, 3011, 43000
43000 if (ivcomp-2) 23000,13000,23000
13000 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3011
23000 ivfail = ivfail + 1
ivcorr =2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3011 continue
ivtnum = 301
c
c **** test 301 ****
c
if (iczero) 33010, 3010, 33010
3010 continue
ivon02 =3
ivcomp =9-ivon02-4
go to 43010
33010 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43010, 3021, 43010
43010 if (ivcomp-2) 23010,13010,23010
13010 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3021
23010 ivfail = ivfail + 1
ivcorr =2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3021 continue
ivtnum = 302
c
c **** test 302 ****
c
if (iczero) 33020, 3020, 33020
3020 continue
ivon03 = 4
ivcomp = 9-3-ivon03
go to 43020
33020 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43020, 3031, 43020
43020 if (ivcomp-2) 23020,13020,23020
13020 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3031
23020 ivfail = ivfail + 1
ivcorr =2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3031 continue
ivtnum = 303
c
c **** test 303 ****
c
if (iczero) 33030, 3030, 33030
3030 continue
ivon01 = 57
ivcomp = ivon01 -25-22
go to 43030
33030 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43030, 3041, 43030
43030 if (ivcomp-10) 23030,13030,23030
13030 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3041
23030 ivfail = ivfail + 1
ivcorr = 10
write (i02,80004) ivtnum, ivcomp ,ivcorr
3041 continue
ivtnum = 304
c
c **** test 304 ****
c
if (iczero) 33040, 3040, 33040
3040 continue
ivon02 =683
ivcomp = 101-ivon02-156
go to 43040
33040 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43040, 3051, 43040
43040 if (ivcomp+738) 23040,13040,23040
13040 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3051
23040 ivfail = ivfail + 1
ivcorr = -738
write (i02,80004) ivtnum, ivcomp ,ivcorr
3051 continue
ivtnum = 305
c
c **** test 305 ****
c
if (iczero) 33050, 3050, 33050
3050 continue
ivon03 = 1289
ivcomp = 8542-1122-ivon03
go to 43050
33050 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43050, 3061, 43050
43050 if (ivcomp-6131) 23050,13050,23050
13050 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3061
23050 ivfail = ivfail + 1
ivcorr = 6131
write (i02,80004) ivtnum, ivcomp ,ivcorr
3061 continue
ivtnum = 306
c
c **** test 306 ****
c
if (iczero) 33060, 3060, 33060
3060 continue
ivon03 = 11111
ivcomp = 32333-11111-ivon03
go to 43060
33060 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43060, 3071, 43060
43060 if (ivcomp-10111) 23060,13060,23060
13060 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3071
23060 ivfail = ivfail + 1
ivcorr =10111
write (i02,80004) ivtnum, ivcomp ,ivcorr
3071 continue
ivtnum = 307
c
c **** test 307 ****
c
if (iczero) 33070, 3070, 33070
3070 continue
ivon01 = -3
ivcomp = ivon01-2-4
go to 43070
33070 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43070, 3081, 43070
43070 if (ivcomp +9) 23070,13070,23070
13070 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3081
23070 ivfail = ivfail + 1
ivcorr =-9
write (i02,80004) ivtnum, ivcomp ,ivcorr
3081 continue
ivtnum = 308
c
c **** test 308 ****
c
if (iczero) 33080, 3080, 33080
3080 continue
ivon02 =-9
ivcomp =1-ivon02-4
go to 43080
33080 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43080, 3091, 43080
43080 if (ivcomp-6) 23080,13080,23080
13080 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3091
23080 ivfail = ivfail + 1
ivcorr = 6
write (i02,80004) ivtnum, ivcomp ,ivcorr
3091 continue
ivtnum = 309
c
c **** test 309 ****
c
if (iczero) 33090, 3090, 33090
3090 continue
ivon03 = -8542
ivcomp = 100-3-ivon03
go to 43090
33090 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43090, 3101, 43090
43090 if (ivcomp-8639) 23090,13090,23090
13090 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3101
23090 ivfail = ivfail + 1
ivcorr = 8639
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c test 310 through test 319 contain 2 integer constants, an integer
c variable and operator - in an arithmetic expression. parentheses
c are used to group elements in the arithmetic expression.
c
3101 continue
ivtnum = 310
c
c **** test 310 ****
c
if (iczero) 33100, 3100, 33100
3100 continue
ivon01 =9
ivcomp = ivon01-(3-4)
go to 43100
33100 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43100, 3111, 43100
43100 if (ivcomp-10) 23100,13100,23100
13100 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3111
23100 ivfail = ivfail + 1
ivcorr=10
write (i02,80004) ivtnum, ivcomp ,ivcorr
3111 continue
ivtnum = 311
c
c **** test 311 ****
c
if (iczero) 33110, 3110, 33110
3110 continue
ivon01=9
ivcomp=(ivon01-3)-4
go to 43110
33110 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43110, 3121, 43110
43110 if (ivcomp-2) 23110,13110,23110
13110 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3121
23110 ivfail = ivfail + 1
ivcorr =2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3121 continue
ivtnum = 312
c
c **** test 312 ****
c
if (iczero) 33120, 3120, 33120
3120 continue
ivon02 = 3
ivcomp = 9-(ivon02-4)
go to 43120
33120 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43120, 3131, 43120
43120 if (ivcomp-10) 23120,13120,23120
13120 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3131
23120 ivfail = ivfail + 1
ivcorr = 10
write (i02,80004) ivtnum, ivcomp ,ivcorr
3131 continue
ivtnum = 313
c
c **** test 313 ****
c
if (iczero) 33130, 3130, 33130
3130 continue
ivon02 = 3
ivcomp = (9-ivon02) -4
go to 43130
33130 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43130, 3141, 43130
43130 if (ivcomp-2) 23130,13130,23130
13130 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3141
23130 ivfail = ivfail + 1
ivcorr = 2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3141 continue
ivtnum = 314
c
c **** test 314 ****
c
if (iczero) 33140, 3140, 33140
3140 continue
ivon03 = 4
ivcomp = 9 -(3-ivon03)
go to 43140
33140 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43140, 3151, 43140
43140 if (ivcomp-10) 23140,13140,23140
13140 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3151
23140 ivfail = ivfail + 1
ivcorr = 10
write (i02,80004) ivtnum, ivcomp ,ivcorr
3151 continue
ivtnum = 315
c
c **** test 315 ****
c
if (iczero) 33150, 3150, 33150
3150 continue
ivon03 = 4
ivcomp = (9-3)-ivon03
go to 43150
33150 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43150, 3161, 43150
43150 if (ivcomp-2) 23150,13150,23150
13150 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3161
23150 ivfail = ivfail + 1
ivcorr = 2
write (i02,80004) ivtnum, ivcomp ,ivcorr
3161 continue
ivtnum = 316
c
c **** test 316 ****
c
if (iczero) 33160, 3160, 33160
3160 continue
ivon01 = -9
ivcomp = (ivon01-3)-4
go to 43160
33160 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43160, 3171, 43160
43160 if (ivcomp +16) 23160,13160,23160
13160 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3171
23160 ivfail = ivfail + 1
ivcorr = -16
write (i02,80004) ivtnum, ivcomp ,ivcorr
3171 continue
ivtnum = 317
c
c **** test 317 ****
c
if (iczero) 33170, 3170, 33170
3170 continue
ivon02 = -3
ivcomp = 9-(ivon02-4)
go to 43170
33170 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43170, 3181, 43170
43170 if (ivcomp-16) 23170,13170,23170
13170 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3181
23170 ivfail = ivfail + 1
ivcorr = 16
write (i02,80004) ivtnum, ivcomp ,ivcorr
3181 continue
ivtnum = 318
c
c **** test 318 ****
c
if (iczero) 33180, 3180, 33180
3180 continue
ivon03 = +4
ivcomp = 9 - (3 - ivon03)
go to 43180
33180 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43180, 3191, 43180
43180 if (ivcomp - 10) 23180,13180,23180
13180 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3191
23180 ivfail = ivfail + 1
ivcorr= 10
write (i02,80004) ivtnum, ivcomp ,ivcorr
3191 continue
ivtnum = 319
c
c **** test 319 ****
c
if (iczero) 33190, 3190, 33190
3190 continue
ivon02 = 11111
ivcomp = (32333-ivon02) -11111
go to 43190
33190 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43190, 3201, 43190
43190 if (ivcomp - 10111) 23190,13190,23190
13190 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3201
23190 ivfail = ivfail + 1
ivcorr = 10111
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c test 320 through test 329 contain 2 integer variables and
c operator - in an arithmetic expression. the integer variables
c contain positive and negative values.
c
3201 continue
ivtnum = 320
c
c **** test 320 ****
c
if (iczero) 33200, 3200, 33200
3200 continue
ivon01 = 3
ivon02 = 2
ivcomp = ivon01 - ivon02
go to 43200
33200 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43200, 3211, 43200
43200 if (ivcomp - 1) 23200,13200,23200
13200 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3211
23200 ivfail = ivfail + 1
ivcorr = 1
write (i02,80004) ivtnum, ivcomp ,ivcorr
3211 continue
ivtnum = 321
c
c **** test 321 ****
c
if (iczero) 33210, 3210, 33210
3210 continue
ivon01 =2
ivon02 =3
ivcomp = ivon01 - ivon02
go to 43210
33210 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43210, 3221, 43210
43210 if (ivcomp +1) 23210,13210,23210
13210 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3221
23210 ivfail = ivfail + 1
ivcorr = -1
write (i02,80004) ivtnum, ivcomp ,ivcorr
3221 continue
ivtnum = 322
c
c **** test 322 ****
c
if (iczero) 33220, 3220, 33220
3220 continue
ivon01 = -2
ivon02 = 3
ivcomp = ivon01 - ivon02
go to 43220
33220 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43220, 3231, 43220
43220 if (ivcomp +5) 23220,13220,23220
13220 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3231
23220 ivfail = ivfail + 1
ivcorr =-5
write (i02,80004) ivtnum, ivcomp ,ivcorr
3231 continue
ivtnum = 323
c
c **** test 323 ****
c
if (iczero) 33230, 3230, 33230
3230 continue
ivon01 = -2
ivon02 = -3
ivcomp = ivon01 - ivon02
go to 43230
33230 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43230, 3241, 43230
43230 if (ivcomp -1) 23230,13230,23230
13230 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3241
23230 ivfail = ivfail + 1
ivcorr = 1
write (i02,80004) ivtnum, ivcomp ,ivcorr
3241 continue
ivtnum = 324
c
c **** test 324 ****
c
if (iczero) 33240, 3240, 33240
3240 continue
ivon01 = 51
ivon02 = 52
ivcomp = ivon01 - ivon02
go to 43240
33240 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43240, 3251, 43240
43240 if (ivcomp + 1) 23240,13240,23240
13240 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3251
23240 ivfail = ivfail + 1
ivcorr = -1
write (i02,80004) ivtnum, ivcomp ,ivcorr
3251 continue
ivtnum = 325
c
c **** test 325 ****
c
if (iczero) 33250, 3250, 33250
3250 continue
ivon01 = 676
ivon02 =-189
ivcomp = ivon01 - ivon02
go to 43250
33250 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43250, 3261, 43250
43250 if (ivcomp - 865) 23250,13250,23250
13250 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3261
23250 ivfail = ivfail + 1
ivcorr = 865
write (i02,80004) ivtnum, ivcomp ,ivcorr
3261 continue
ivtnum = 326
c
c **** test 326 ****
c
if (iczero) 33260, 3260, 33260
3260 continue
ivon01 = 1358
ivon02 = -8001
ivcomp = ivon01 - ivon02
go to 43260
33260 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43260, 3271, 43260
43260 if (ivcomp - 9359) 23260,13260,23260
13260 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3271
23260 ivfail = ivfail + 1
ivcorr = 9359
write (i02,80004) ivtnum, ivcomp ,ivcorr
3271 continue
ivtnum = 327
c
c **** test 327 ****
c
if (iczero) 33270, 3270, 33270
3270 continue
ivon01 =-16383
ivon02 = 16383
ivcomp = ivon01 - ivon02
go to 43270
33270 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43270, 3281, 43270
43270 if (ivcomp + 32766) 23270,13270,23270
13270 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3281
23270 ivfail = ivfail + 1
ivcorr = -32766
write (i02,80004) ivtnum, ivcomp ,ivcorr
3281 continue
ivtnum = 328
c
c **** test 328 ****
c
if (iczero) 33280, 3280, 33280
3280 continue
ivon01 = 9876
ivon02 = 189
ivcomp = ivon01 - ivon02
go to 43280
33280 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43280, 3291, 43280
43280 if (ivcomp - 9687) 23280,13280,23280
13280 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3291
23280 ivfail = ivfail + 1
ivcorr = 9687
write (i02,80004) ivtnum, ivcomp ,ivcorr
3291 continue
ivtnum = 329
c
c **** test 329 ****
c
if (iczero) 33290, 3290, 33290
3290 continue
ivon01 = 11112
ivon02 = 11112
ivcomp = ivon01 - ivon02
go to 43290
33290 ivdele = ivdele + 1
write (i02,80003) ivtnum
if (iczero) 43290, 3301, 43290
43290 if (ivcomp) 23290,13290,23290
13290 ivpass = ivpass + 1
write (i02,80001) ivtnum
go to 3301
23290 ivfail = ivfail + 1
ivcorr = 0
write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c **** end of tests ****
3301 continue
c
c write page footings and run summaries
99999 continue
write (i02,90002)
write (i02,90006)
write (i02,90002)
write (i02,90002)
write (i02,90007)
write (i02,90002)
write (i02,90008) ivfail
write (i02,90009) ivpass
write (i02,90010) ivdele
c
c
c terminate routine execution
stop
c
c format statements for page headers
90000 format (1h1)
90002 format (1h )
90001 format (1h ,10x,34hfortran compiler validation system)
90003 format (1h ,21x,11hversion 1.0)
90004 format (1h ,10x,38hfor official use only - copyright 1978)
90005 format (1h ,5x,4htest,5x,9hpass/fail, 5x,8hcomputed,8x,7hcorrect)
90006 format (1h ,5x,46h----------------------------------------------)
90011 format (1h ,18x,17hsubset level test)
c
c format statements for run summaries
90008 format (1h ,15x,i5,19h errors encountered)
90009 format (1h ,15x,i5,13h tests passed)
90010 format (1h ,15x,i5,14h tests deleted)
c
c format statements for test results
80001 format (1h ,4x,i5,7x,4hpass)
80002 format (1h ,4x,i5,7x,4hfail)
80003 format (1h ,4x,i5,7x,7hdeleted)
80004 format (1h ,4x,i5,7x,4hfail,10x,i6,9x,i6)
80005 format (1h ,4x,i5,7x,4hfail,4x,e12.5,3x,e12.5)
c
90007 format (1h ,20x,20hend of program fm031)
end