."$"0
end program.
c  end of simcmp test.  this line contains type 0 elements only$
      return$
      end$
$
type 2 ".
      testc="10$
      type1="11$
$
test parameter 0.
      print "00, gen1$
      print "01, gen2$
      print "02, gen3$
      print "03, gen4$
      print "04, gen5$
      print "05, gen6$
      print "06, gen7$
      print "07, gen8$
      print "08, gen9$
      print "09, gen10$
  "00 format(6h gen1=,f6.4)$
  "01 format(6h gen2=,f6.4)$
  "02 format(6h gen3=,f6.4)$
  "03 format(6h gen4=,f6.4)$
  "04 format(6h gen5=,f6.4)$
  "05 format(6h gen6=,f6.4)$
  "06 format(6h gen7=,f6.4)$
  "07 format(6h gen8=,f6.4)$
  "08 format(6h gen9=,f6.4)$
  "09 format(7h gen10=,f6.4)$
$
null macro.
$
nine parameters """"""""".
      nine="10+"20+"30+"40+"50+"60+"70+"80+"90$
$
code body line with no terminator.
c  this code body line has no terminator.  it should have 80 characters.
$$
      subroutine progr
c  this test data checks out the workings of simcmp.  the first three
c  lines will not be matched, and should be output in their entirety.
test parameter 0.
null macro.
nine parameters 123456789.
type 2 a.
code body line with no terminator.
type 2 0.
test parameter 0.
end program.
