PROGRAM incl_test;
  (*$i tmp/incl.test1.text*)
  (*$i tmp/incl.test4.text*)

   PROCEDURE i;

      BEGIN
      END;

   PROCEDURE j;

      BEGIN
      END;

   BEGIN {main}
   END {main} .

