share/contrib/gentran/test/type.output

   1       i=5+j*2
   2
   3       x=y/6.0-3.0
   4
   5       implicit real*8 (a-h,o-z)
   6       real*8 m(4,4)
   7       integer i,j
   8       do 25009 i=1,4
   9           do 25010 j=1,4
  10               if ( .not. i .eq. j) goto 25011
  11                   m(i,j)=1.0
  12                   goto 25012
  13 25011         continue
  14                   m(i,j)=0.0
  15 25012         continue
  16 25010     continue
  17 25009 continue
  18
  19
  20       double x
  21       integer y
  22       i=9*y
  23       x=7.d0*x/u