share/contrib/gentran/test/type.mac

   1 gentranlang:fortran;
   2 /* gentran knows about constants and implicit types in fortran */
   3
   4 gentran(i:5+j*2);
   5
   6 gentran(x:y/6-3);
   7
   8 /* types can also be explicitly declared */
   9 gentran( type("implicit real*8", "a-h","o-z"),
  10       type("real*8", m(4,4)),
  11       for i:1 thru 4 do
  12           for j:1 thru 4 do
  13               if i=j
  14                  then m[i,j] : 1.0
  15                  else m[i,j] : 0.0,
  16         type("integer", i,j));
  17
  18 gentran( type("double", x),
  19          type("integer", y),
  20          i:9*y,
  21          x:7*x/u)$