c     comment section.
c
c     fm009
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 positive integer variables.
c     some of the tests use parentheses to group elements in the
c     arithmetic expression.
c
c         there are tests where the arithmetic expression contains
c            (1)  two integer variables,
c            (2)  two integer variables and one integer constant,
c            (3)  two integer variables and one integer constant with
c                   parentheses to group elements.
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 statements
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         arithmetic assignment statement
c
c     test 235 through test 243 contain two positive integer variables
c     and operator + in arithmetic expression.
c
 2351 continue
      ivtnum = 235
c
c      ****  test 235  ****
c
      if (iczero) 32350, 2350, 32350
 2350 continue
      ivon01 = 2
      ivon02 = 3
      ivcomp = ivon01 + ivon02
      go to 42350
32350 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42350, 2361, 42350
42350 if (ivcomp - 5) 22350,12350,22350
12350 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2361
22350 ivfail = ivfail + 1
      ivcorr = 5
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2361 continue
      ivtnum = 236
c
c      ****  test 236  ****
c
      if (iczero) 32360, 2360, 32360
 2360 continue
      ivon01 = 2
      ivon02 = 3
      ivcomp = ivon02 + ivon01
      go to 42360
32360 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42360, 2371, 42360
42360 if (ivcomp - 5) 22360, 12360, 22360
12360 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2371
22360 ivfail = ivfail + 1
      ivcorr = 5
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2371 continue
      ivtnum = 237
c
c      ****  test 237  ****
c
      if (iczero) 32370, 2370, 32370
 2370 continue
      ivon01 = 51
      ivon02 = 52
      ivcomp = ivon01 + ivon02
      go to 42370
32370 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42370, 2381, 42370
42370 if (ivcomp - 103) 22370, 12370, 22370
12370 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2381
22370 ivfail = ivfail + 1
      ivcorr = 103
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2381 continue
      ivtnum = 238
c
c      ****  test  238 ****
c
      if (iczero) 32380, 2380, 32380
 2380 continue
      ivon01 = 189
      ivon02 = 676
      ivcomp = ivon01 + ivon02
      go to 42380
32380 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42380, 2391, 42380
42380 if (ivcomp - 865) 22380, 12380, 22380
12380 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2391
22380 ivfail = ivfail + 1
      ivcorr = 865
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2391 continue
      ivtnum = 239
c
c      ****  test 239  ****
c
      if (iczero) 32390, 2390, 32390
 2390 continue
      ivon01 = 1358
      ivon02 = 8001
      ivcomp = ivon01 + ivon02
      go to 42390
32390 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42390, 2401, 42390
42390 if (ivcomp - 9359) 22390, 12390, 22390
12390 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2401
22390 ivfail = ivfail + 1
      ivcorr = 9359
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2401 continue
      ivtnum = 240
c
c      ****  test 240  ****
c
      if (iczero) 32400, 2400, 32400
 2400 continue
      ivon01 = 1358
      ivon02 = 8001
      ivcomp = ivon02 + ivon01
      go to 42400
32400 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42400, 2411, 42400
42400 if (ivcomp - 9359) 22400, 12400, 22400
12400 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2411
22400 ivfail = ivfail + 1
      ivcorr = 9359
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2411 continue
      ivtnum = 241
c
c      ****  test 241  ****
c
      if (iczero) 32410, 2410, 32410
 2410 continue
      ivon01 = 11112
      ivon02 = 10001
      ivcomp = ivon01 + ivon02
      go to 42410
32410 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42410, 2421, 42410
42410 if (ivcomp - 21113) 22410, 12410, 22410
12410 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2421
22410 ivfail = ivfail + 1
      ivcorr = 21113
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2421 continue
      ivtnum = 242
c
c      **** test 242  ****
c
      if (iczero) 32420, 2420, 32420
 2420 continue
      ivon01 = 189
      ivon02 = 9876
      ivcomp = ivon01 + ivon02
      go to 42420
32420 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42420, 2431, 42420
42420 if (ivcomp - 10065) 22420, 12420, 22420
12420 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2431
22420 ivfail = ivfail + 1
      ivcorr = 10065
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2431 continue
      ivtnum = 243
c
c      **** test 243  ****
c         requires 32767
c
      if (iczero) 32430, 2430, 32430
 2430 continue
      ivon01 = 16383
      ivon02 = 16384
      ivcomp = ivon01 + ivon02
      go to 42430
32430 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42430, 2441, 42430
42430 if (ivcomp - 32767) 22430, 12430, 22430
12430 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2441
22430 ivfail = ivfail + 1
      ivcorr = 32767
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c     test 244 through test 250 contain two positive integer variables,
c     one integer constant, and operator + in arithmetic expression.
c
 2441 continue
      ivtnum = 244
c
c      ****  test 244  ****
c
      if (iczero) 32440, 2440, 32440
 2440 continue
      ivon01 = 2
      ivon02 = 3
      ivcomp = ivon01 + ivon02 + 4
      go to 42440
32440 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42440, 2451, 42440
42440 if (ivcomp - 9) 22440, 12440, 22440
12440 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2451
22440 ivfail = ivfail + 1
      ivcorr = 9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2451 continue
      ivtnum = 245
c
c      ****  test 245  ****
c
      if (iczero) 32450, 2450, 32450
 2450 continue
      ivon01 = 2
      ivon03 = 4
      ivcomp = ivon01 +3 + ivon03
      go to 42450
32450 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42450, 2461, 42450
42450 if (ivcomp - 9) 22450, 12450, 22450
12450 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2461
22450 ivfail = ivfail + 1
      ivcorr = 9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2461 continue
      ivtnum = 246
c
c      ****  test 246  ****
c
      if (iczero) 32460, 2460, 32460
 2460 continue
      ivon02 = 3
      ivon03 = 4
      ivcomp = 2 + ivon02 + ivon03
      go to 42460
32460 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42460, 2471, 42460
42460 if (ivcomp - 9) 22460, 12460, 22460
12460 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2471
22460 ivfail = ivfail + 1
      ivcorr = 9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2471 continue
      ivtnum = 247
c
c      ****  test 247  ****
c
      if (iczero) 32470, 2470, 32470
 2470 continue
      ivon01 = 51
      ivon03 = 53
      ivcomp = ivon01 +52 + ivon03
      go to 42470
32470 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42470, 2481, 42470
42470 if (ivcomp - 156) 22470, 12470, 22470
12470 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2481
22470 ivfail = ivfail + 1
      ivcorr = 156
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2481 continue
      ivtnum = 248
c
c      ****  test 248  ****
c
      if (iczero) 32480, 2480, 32480
 2480 continue
      ivon02 = 676
      ivon03 = 101
      ivcomp = 189 + ivon02 + ivon03
      go to 42480
32480 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42480, 2491, 42480
42480 if (ivcomp - 966) 22480, 12480, 22480
12480 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2491
22480 ivfail = ivfail + 1
      ivcorr = 966
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2491 continue
      ivtnum = 249
c
c      ****  test 249  ****
c
      if (iczero) 32490, 2490, 32490
 2490 continue
      ivon01 = 1358
      ivon02 = 8001
      ivcomp = ivon01 + ivon02 + 2189
      go to 42490
32490 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42490, 2501, 42490
42490 if (ivcomp - 11548) 22490, 12490, 22490
12490 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2501
22490 ivfail = ivfail + 1
      ivcorr = 11548
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2501 continue
      ivtnum = 250
c
c      ****  test 250  ****
c         requires 32767
c
      if (iczero) 32500, 2500, 32500
 2500 continue
      ivon01 = 16383
      ivon03 = 4
      ivcomp = ivon01 + 16380 + ivon03
      go to 42500
32500 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42500, 2511, 42500
42500 if (ivcomp - 32767) 22500,12500,22500
12500 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2511
22500 ivfail = ivfail + 1
      ivcorr = 32767
      write (i02,80004) ivtnum, ivcomp ,ivcorr
c
c     test 251 through test 264 contain two positive integer variables,
c     one integer constant, and operator + in arithmetic expression.
c     parentheses are used to group elements.  the results are the same
c     as tests 244 through 250.
c
 2511 continue
      ivtnum = 251
c
c      ****  test 251  ****
c
      if (iczero) 32510, 2510, 32510
 2510 continue
      ivon01 = 2
      ivon02 = 3
      ivcomp = (ivon01 + ivon02) + 4
      go to 42510
32510 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42510, 2521, 42510
42510 if (ivcomp - 9) 22510,12510,22510
12510 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2521
22510 ivfail = ivfail + 1
      ivcorr = 9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2521 continue
      ivtnum = 252
c
c      ****  test 252  ****
c
      if (iczero) 32520, 2520, 32520
 2520 continue
      ivon02 = 3
      ivon03 = 4
      ivcomp = 2 + (ivon02 + ivon03)
      go to 42520
32520 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42520, 2531, 42520
42520 if (ivcomp - 9) 22520,12520,22520
12520 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2531
22520 ivfail = ivfail + 1
      ivcorr = 9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2531 continue
      ivtnum = 253
c
c      **** test 253  ****
c
      if (iczero) 32530, 2530, 32530
 2530 continue
      ivon02 =3
      ivon03 =4
      ivcomp = (2+ivon02)+ivon03
      go to 42530
32530 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42530, 2541, 42530
42530 if (ivcomp -9) 22530,12530,22530
12530 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2541
22530 ivfail = ivfail + 1
      ivcorr =9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2541 continue
      ivtnum = 254
c
c      ****  test 254  ****
c
      if (iczero) 32540, 2540, 32540
 2540 continue
      ivon01 = 2
      ivon02 = 3
      ivcomp = ivon01 + (ivon02 + 4)
      go to 42540
32540 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42540, 2551, 42540
42540 if (ivcomp-9)22540,12540,22540
12540 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2551
22540 ivfail = ivfail + 1
      ivcorr=9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2551 continue
      ivtnum = 255
c
c      ****  test 255  ****
c
      if (iczero) 32550, 2550, 32550
 2550 continue
      ivon01 = 2
      ivon03 = 4
      ivcomp = ivon01 +(3+ivon03)
      go to 42550
32550 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42550, 2561, 42550
42550 if (ivcomp-9)22550,12550,22550
12550 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2561
22550 ivfail = ivfail + 1
      ivcorr =9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2561 continue
      ivtnum = 256
c
c      ****  test 256  ****
c
      if (iczero) 32560, 2560, 32560
 2560 continue
      ivon01 = 2
      ivon03 = 4
      ivcomp =(ivon01+3)+ivon03
      go to 42560
32560 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42560, 2571, 42560
42560 if (ivcomp-9) 22560,12560,22560
12560 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2571
22560 ivfail = ivfail + 1
      ivcorr =9
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2571 continue
      ivtnum = 257
c
c      ****  test 257  ****
c
      if (iczero) 32570, 2570, 32570
 2570 continue
      ivon01 = 51
      ivon03 = 53
      ivcomp=ivon01+(52+ivon03)
      go to 42570
32570 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42570, 2581, 42570
42570 if (ivcomp -156) 22570,12570,22570
12570 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2581
22570 ivfail = ivfail + 1
      ivcorr = 156
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2581 continue
      ivtnum = 258
c
c      ****  test 258  ****
c
      if (iczero) 32580, 2580, 32580
 2580 continue
      ivon01 = 51
      ivon03 = 53
      ivcomp =(ivon01+52)+ivon03
      go to 42580
32580 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42580, 2591, 42580
42580 if (ivcomp-156) 22580,12580,22580
12580 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2591
22580 ivfail = ivfail + 1
      ivcorr = 156
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2591 continue
      ivtnum = 259
c
c      ****  test 259  ****
c
      if (iczero) 32590, 2590, 32590
 2590 continue
      ivon02 = 676
      ivon03 = 101
      ivcomp = 189+(ivon02+ivon03)
      go to 42590
32590 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42590, 2601, 42590
42590 if (ivcomp -966) 22590,12590,22590
12590 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2601
22590 ivfail = ivfail + 1
      ivcorr =966
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2601 continue
      ivtnum = 260
c
c      ****  test 260  ****
c
      if (iczero) 32600, 2600, 32600
 2600 continue
      ivon02 = 676
      ivon03 = 101
      ivcomp = (189 + ivon02) + ivon03
      go to 42600
32600 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42600, 2611, 42600
42600 if (ivcomp-966) 22600,12600,22600
12600 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2611
22600 ivfail = ivfail + 1
      ivcorr=966
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2611 continue
      ivtnum = 261
c
c      ****  test 261  ****
c
      if (iczero) 32610, 2610, 32610
 2610 continue
      ivon01 = 1358
      ivon02 = 8001
      ivcomp = ivon01 + (ivon02 + 2189)
      go to 42610
32610 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42610, 2621, 42610
42610 if (ivcomp-11548) 22610,12610,22610
12610 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2621
22610 ivfail = ivfail + 1
      ivcorr=11548
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2621 continue
      ivtnum = 262
c
c      ****  test 262  ****
c
      if (iczero) 32620, 2620, 32620
 2620 continue
      ivon01 = 1358
      ivon02 = 8001
      ivcomp =(ivon01+ivon02)+2189
      go to 42620
32620 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42620, 2631, 42620
42620 if (ivcomp-11548) 22620,12620,22620
12620 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2631
22620 ivfail = ivfail + 1
      ivcorr=11548
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2631 continue
      ivtnum = 263
c
c      ****  test 263  ****
c         requires 32767
c
      if (iczero) 32630, 2630, 32630
 2630 continue
      ivon01 = 16383
      ivon03 = 16380
      ivcomp = ivon01 + (4+ivon03)
      go to 42630
32630 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42630, 2641, 42630
42630 if (ivcomp-32767) 22630,12630,22630
12630 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2641
22630 ivfail = ivfail + 1
      ivcorr =32767
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2641 continue
      ivtnum = 264
c
c      ****  test 264  ****
c         requires 32767
c
      if (iczero) 32640, 2640, 32640
 2640 continue
      ivon01 = 16383
      ivon02 = 16380
      ivcomp = (ivon01+ivon02) +4
      go to 42640
32640 ivdele = ivdele + 1
      write (i02,80003) ivtnum
      if (iczero) 42640, 2651, 42640
42640 if (ivcomp - 32767) 22640,12640,22640
12640 ivpass = ivpass + 1
      write (i02,80001) ivtnum
      go to 2651
22640 ivfail = ivfail + 1
      ivcorr = 32767
      write (i02,80004) ivtnum, ivcomp ,ivcorr
 2651 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 fm009)
      end