checks/216.improved_f

   1 dnl @ ../doc/m4.texinfo:7802: Origin of test
   2 dnl @ expected status: 1
   3 dnl @ extra options:  -L9
   4 dnl @ Copyright (C) 2006, 2007, 2008, 2009 Free Software
   5 dnl @ Foundation, Inc.
   6 dnl @ This file is free software; the Free Software Foundation
   7 dnl @ gives unlimited permission to copy and/or distribute it
   8 dnl @ with or without modifications, as long as this notice
   9 dnl @ is preserved.
  10 define(`arg1', `$1')include(`forloop2.m4')include(`quote.m4')
  11 dnl @result{}
  12 define(`double', `define(`$1'`2',
  13   arg1(patsubst(dquote(defn(`$1')), `[`']', `\&\&')))')
  14 dnl @result{}
  15 double(`forloop')double(`_forloop')defn(`forloop2')
  16 dnl @result{}ifelse(eval(``($2) <= ($3)''), ``1'',
  17 dnl @result{}  ``pushdef(``$1'')_$0(``$1'', eval(``$2''),
  18 dnl @result{}    eval(``$3''), ``$4'')popdef(``$1'')'')
  19 forloop(i, 1, 5, `ifelse(')forloop(i, 1, 5, `)')
  20 dnl @result{}
  21 changequote(`[', `]')changequote([``], [''])
  22 dnl @result{}
  23 forloop2(i, 1, 5, ``ifelse('')forloop2(i, 1, 5, ``)'')
  24 dnl @result{}
  25 changequote`'include(`forloop.m4')
  26 dnl @result{}
  27 double(`forloop')double(`_forloop')defn(`forloop2')
  28 dnl @result{}pushdef(``$1'', ``$2'')_forloop($@)popdef(``$1'')
  29 forloop(i, 1, 5, `ifelse(')forloop(i, 1, 5, `)')
  30 dnl @result{}
  31 changequote(`[', `]')changequote([``], [''])
  32 dnl @result{}
  33 forloop2(i, 1, 5, ``ifelse('')forloop2(i, 1, 5, ``)'')
  34 dnl @error{}m4:stdin:12: recursion limit of 9 exceeded, use -L<N> to change it