home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / fchek284.zip / test / dectab.f < prev    next >
Text File  |  1994-11-06  |  109b  |  13 lines
  1.     subroutine abc
  2.     common a,b
  3.     1 ,c
  4.     a = 1
  5.     b = a
  6.     2 / c
  7.     if(a .ge.b)a=1
  8.     
  9.    3 +2
  10.     c = 2/3
  11.     print*,a,b,c
  12.     end
  13.