tests/tests/fm032.f

c     comment section
c
c     fm032
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 var.= int. var. - int.var.-int.con
c                          = int. var. - int.con.-int.var
c                          = int. con. - int.var -int.var.
c         (2)  same forms as (1) but with parentheses to group elements
c              in arithmetic expression.
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
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     test section
c
c         arithmetic assignment statement
c
c     test 330 through test 347 contain two integer variables, an
c     integer constant and operator - in an arithmetic expression.  the
c     integer variables contain positive and negative values.
c
c     test 330 through test 337     iv = iv -iv -ic
c
 3301 continue
      ivtnum = 330
c
c      ****  test 330  ****
c
      if (iczero) 33300, 3300, 33300
 3300 continue
      ivon01 =9
      ivon02 =4
      ivcomp = ivon01-ivon02-2
      go to 43300
33300 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43300, 3311, 43300
43300 if (ivcomp-3) 23300,13300,23300
13300 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3311
23300 ivfail = ivfail + 1
      ivcorr= 3
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3311 continue
      ivtnum = 331
c
c      ****  test 331  ****
c
      if (iczero) 33310, 3310, 33310
 3310 continue
      ivon01 =-9
      ivon02 = 4
      ivcomp = ivon01-ivon02-2
      go to 43310
33310 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43310, 3321, 43310
43310 if (ivcomp +15) 23310,13310,23310
13310 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3321
23310 ivfail = ivfail + 1
      ivcorr = -15
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3321 continue
      ivtnum = 332
c
c      ****  test 332  ****
c
      if (iczero) 33320, 3320, 33320
 3320 continue
      ivon01 =9
      ivon02 =-4
      ivcomp =ivon01-ivon02-2
      go to 43320
33320 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43320, 3331, 43320
43320 if (ivcomp-11) 23320,13320,23320
13320 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3331
23320 ivfail = ivfail + 1
      ivcorr = 11
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3331 continue
      ivtnum = 333
c
c      ****  test 333  ****
c
      if (iczero) 33330, 3330, 33330
 3330 continue
      ivon01 =57
      ivon02 =25
      ivcomp=ivon01-ivon02-22
      go to 43330
33330 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43330, 3341, 43330
43330 if (ivcomp -10) 23330,13330,23330
13330 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3341
23330 ivfail = ivfail + 1
      ivcorr = 10
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3341 continue
      ivtnum = 334
c
c      ****  test 334  ****
c
      if (iczero) 33340, 3340, 33340
 3340 continue
      ivon01 = 101
      ivon02 = 683
      ivcomp = ivon01 - ivon02 - 156
      go to 43340
33340 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43340, 3351, 43340
43340 if (ivcomp +738) 23340,13340,23340
13340 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3351
23340 ivfail = ivfail + 1
      ivcorr = -738
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3351 continue
      ivtnum = 335
c
c      ****  test 335  ****
c
      if (iczero) 33350, 3350, 33350
 3350 continue
      ivon01=8542
      ivon02=1122
      ivcomp=ivon01-ivon02-1289
      go to 43350
33350 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43350, 3361, 43350
43350 if (ivcomp -6131) 23350,13350,23350
13350 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3361
23350 ivfail = ivfail + 1
      ivcorr = 6131
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3361 continue
      ivtnum = 336
c
c      ****  test 336  ****
c
      if (iczero) 33360, 3360, 33360
 3360 continue
      ivon01 = 31333
      ivon02 = 11111
      ivcomp = ivon01-ivon02-10111
      go to 43360
33360 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43360, 3371, 43360
43360 if (ivcomp -10111) 23360,13360,23360
13360 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3371
23360 ivfail = ivfail + 1
      ivcorr = 10111
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3371 continue
      ivtnum = 337
c
c      ****  test 337  ****
c
      if (iczero) 33370, 3370, 33370
 3370 continue
      ivon01 = -31444
      ivon02 = +1001
      ivcomp = ivon01-ivon02-300
      go to 43370
33370 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43370, 3381, 43370
43370 if (ivcomp +32745) 23370,13370,23370
13370 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3381
23370 ivfail = ivfail + 1
      ivcorr = -32745
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c     test 338 through test 343           iv=iv-ic-iv
c
 3381 continue
      ivtnum = 338
c
c      ****  test 338  ****
c
      if (iczero) 33380, 3380, 33380
 3380 continue
      ivon01 =9
      ivon03 =2
      ivcomp = ivon01-4-ivon03
      go to 43380
33380 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43380, 3391, 43380
43380 if (ivcomp -3) 23380,13380,23380
13380 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3391
23380 ivfail = ivfail + 1
      ivcorr = 3
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3391 continue
      ivtnum = 339
c
c      ****  test 339  ****
c
      if (iczero) 33390, 3390, 33390
 3390 continue
      ivon01 = -9
      ivon03 =  2
      ivcomp = ivon01-4-ivon03
      go to 43390
33390 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43390, 3401, 43390
43390 if (ivcomp+15) 23390,13390,23390
13390 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3401
23390 ivfail = ivfail + 1
      ivcorr = -15
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3401 continue
      ivtnum = 340
c
c      ****  test 340  ****
c
      if (iczero) 33400, 3400, 33400
 3400 continue
      ivon01 = 9
      ivon03 =-2
      ivcomp =ivon01-4-ivon03
      go to 43400
33400 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43400, 3411, 43400
43400 if (ivcomp-7) 23400,13400,23400
13400 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3411
23400 ivfail = ivfail + 1
      ivcorr=7
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3411 continue
      ivtnum = 341
c
c      ****  test 341  ****
c
      if (iczero) 33410, 3410, 33410
 3410 continue
      ivon01=-57
      ivon03=22
      ivcomp=ivon01-25-ivon03
      go to 43410
33410 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43410, 3421, 43410
43410 if (ivcomp+104) 23410,13410,23410
13410 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3421
23410 ivfail = ivfail + 1
      ivcorr = -104
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3421 continue
      ivtnum = 342
c
c      ****  test 342  ****
c
      if (iczero) 33420, 3420, 33420
 3420 continue
      ivon01=8542
      ivon03=3
      ivcomp=ivon01-125-ivon03
      go to 43420
33420 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43420, 3431, 43420
43420 if (ivcomp-8414) 23420,13420,23420
13420 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3431
23420 ivfail = ivfail + 1
      ivcorr = 8414
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3431 continue
      ivtnum = 343
c
c      ****  test 343  ****
c
      if (iczero) 33430, 3430, 33430
 3430 continue
      ivon01 = -32111
      ivon03 = -111
      ivcomp = ivon01-111-ivon03
      go to 43430
33430 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43430, 3441, 43430
43430 if (ivcomp + 32111) 23430,13430,23430
13430 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3441
23430 ivfail = ivfail + 1
      ivcorr = -32111
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c     test 344 through test 347      iv=ic-iv-iv
c
 3441 continue
      ivtnum = 344
c
c      ****  test 344  ****
c
      if (iczero) 33440, 3440, 33440
 3440 continue
      ivon02=4
      ivon03=2
      ivcomp=9-ivon02-ivon03
      go to 43440
33440 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43440, 3451, 43440
43440 if (ivcomp -3) 23440,13440,23440
13440 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3451
23440 ivfail = ivfail + 1
      ivcorr = 3
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3451 continue
      ivtnum = 345
c
c      ****  test 345  ****
c
      if (iczero) 33450, 3450, 33450
 3450 continue
      ivon02=-4
      ivon03= 2
      ivcomp= 9-ivon02-ivon03
      go to 43450
33450 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43450, 3461, 43450
43450 if (ivcomp -11) 23450,13450,23450
13450 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3461
23450 ivfail = ivfail + 1
      ivcorr =11
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3461 continue
      ivtnum = 346
c
c      ****  test 346  ****
c
      if (iczero) 33460, 3460, 33460
 3460 continue
      ivon02 = 683
      ivon03 = 156
      ivcomp = 101 -ivon02-ivon03
      go to 43460
33460 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43460, 3471, 43460
43460 if (ivcomp +738) 23460,13460,23460
13460 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3471
23460 ivfail = ivfail + 1
      ivcorr = -738
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3471 continue
      ivtnum = 347
c
c      ****  test 347  ****
c
      if (iczero) 33470, 3470, 33470
 3470 continue
      ivon02 = 15687
      ivon03 =  387
      ivcomp = 8542-ivon02-ivon03
      go to 43470
33470 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43470, 3481, 43470
43470 if (ivcomp + 7532) 23470,13470,23470
13470 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3481
23470 ivfail = ivfail + 1
      ivcorr = -7532
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c     test 348 through test 359 contain two integer variables, an
c     integer constant and operator - in an arithmetic expression.
c     parentheses are used to group the elements in the arithmetic
c     expression.  the integer variables contain positive and negative
c     values.
c
 3481 continue
      ivtnum = 348
c
c      ****  test 348  ****
c
      if (iczero) 33480, 3480, 33480
 3480 continue
      ivon01= 9
      ivon02= 4
      ivcomp=(ivon01-ivon02)-2
      go to 43480
33480 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43480, 3491, 43480
43480 if (ivcomp - 3) 23480,13480,23480
13480 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3491
23480 ivfail = ivfail + 1
      ivcorr = 3
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3491 continue
      ivtnum = 349
c
c      ****  test 349  ****
c
      if (iczero) 33490, 3490, 33490
 3490 continue
      ivon01=9
      ivon02=4
      ivcomp=ivon01-(ivon02-2)
      go to 43490
33490 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43490, 3501, 43490
43490 if (ivcomp -7) 23490,13490,23490
13490 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3501
23490 ivfail = ivfail + 1
      ivcorr=7
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3501 continue
      ivtnum = 350
c
c      ****  test 350  ****
c
      if (iczero) 33500, 3500, 33500
 3500 continue
      ivon01 = 9
      ivon02 = -4
      ivcomp = (ivon01-ivon02) -2
      go to 43500
33500 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43500, 3511, 43500
43500 if (ivcomp -11) 23500,13500,23500
13500 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3511
23500 ivfail = ivfail + 1
      ivcorr = 11
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3511 continue
      ivtnum = 351
c
c      ****  test 351  ****
c
      if (iczero) 33510, 3510, 33510
 3510 continue
      ivon01 = 9
      ivon02 = -4
      ivcomp = ivon01-(ivon02-2)
      go to 43510
33510 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43510, 3521, 43510
43510 if (ivcomp - 15) 23510,13510,23510
13510 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3521
23510 ivfail = ivfail + 1
      ivcorr = 15
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3521 continue
      ivtnum = 352
c
c      ****  test 352  ****
c
      if (iczero) 33520, 3520, 33520
 3520 continue
      ivon01 = 683
      ivon03 = 156
      ivcomp = (ivon01-101)-ivon03
      go to 43520
33520 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43520, 3531, 43520
43520 if (ivcomp - 426) 23520,13520,23520
13520 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3531
23520 ivfail = ivfail + 1
      ivcorr = 426
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3531 continue
      ivtnum = 353
c
c      ****  test 353  ****
c
      if (iczero) 33530, 3530, 33530
 3530 continue
      ivon01 = 683
      ivon03 = 156
      ivcomp = ivon01 -(101-ivon03)
      go to 43530
33530 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43530, 3541, 43530
43530 if (ivcomp -738) 23530,13530,23530
13530 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3541
23530 ivfail = ivfail + 1
      ivcorr = 738
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3541 continue
      ivtnum = 354
c
c      ****  test 354  ****
c
      if (iczero) 33540, 3540, 33540
 3540 continue
      ivon01 = 683
      ivon03 =-156
      ivcomp = ivon01 -(101-ivon03)
      go to 43540
33540 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43540, 3551, 43540
43540 if (ivcomp -426) 23540,13540,23540
13540 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3551
23540 ivfail = ivfail + 1
      ivcorr = 426
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3551 continue
      ivtnum = 355
c
c      ****  test 355  ****
c
      if (iczero) 33550, 3550, 33550
 3550 continue
      ivon01 = -683
      ivon03 = -156
      ivcomp = (ivon01-101)-ivon03
      go to 43550
33550 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43550, 3561, 43550
43550 if (ivcomp +628) 23550,13550,23550
13550 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3561
23550 ivfail = ivfail + 1
      ivcorr = -628
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3561 continue
      ivtnum = 356
c
c      ****  test 356  ****
c
      if (iczero) 33560, 3560, 33560
 3560 continue
      ivon02 = 15687
      ivon03 =  387
      ivcomp = (8542-ivon02)-ivon03
      go to 43560
33560 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43560, 3571, 43560
43560 if (ivcomp +7532) 23560,13560,23560
13560 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3571
23560 ivfail = ivfail + 1
      ivcorr = -7532
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3571 continue
      ivtnum = 357
c
c      ****  test 357  ****
c
      if (iczero) 33570, 3570, 33570
 3570 continue
      ivon02= 15687
      ivon03=  387
      ivcomp= 8542-(ivon02-ivon03)
      go to 43570
33570 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43570, 3581, 43570
43570 if (ivcomp + 6758) 23570,13570,23570
13570 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3581
23570 ivfail = ivfail + 1
      ivcorr = -6758
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3581 continue
      ivtnum = 358
c
c      ****  test 358  ****
c
      if (iczero) 33580, 3580, 33580
 3580 continue
      ivon02 = -15687
      ivon03 = 387
      ivcomp =(8542-ivon02)-ivon03
      go to 43580
33580 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43580, 3591, 43580
43580 if (ivcomp - 23842) 23580,13580,23580
13580 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3591
23580 ivfail = ivfail + 1
      ivcorr =23842
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 3591 continue
      ivtnum = 359
c
c      ****  test 359  ****
c
      if (iczero) 33590, 3590, 33590
 3590 continue
      ivon02 = -15687
      ivon03 =  387
      ivcomp = 8542-(ivon02-ivon03)
      go to 43590
33590 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 43590, 3601, 43590
43590 if (ivcomp - 24616) 23590,13590,23590
13590 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 3601
23590 ivfail = ivfail + 1
      ivcorr = 24616
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c      ****   end of tests   ****
 3601 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 fm032)
      end