source/texk/web2c/cftests/cftest.web

   1 % This is not a real program, only to test if tangle works.
   2
   3 @* Introduction.
   4 This is just a test.
   5
   6 @p program CF_test;
   7 type @<Types in the outer block@>
   8
   9 @ @<Types...@>=
  10 @!seven_bits=0..127; {seven-bit numbers, a subrange of the integers}
  11
  12 @* Main program.
  13
  14 @p begin write_ln('This is CFtest');
  15 end.