/* 78696 - -fprintf-return-value misoptimizes %.Ng where N is greater than 10
   Test to verify the correctness of ranges of output computed for floating
   point directives.
   { dg-do compile }
   { dg-require-effective-target double64plus }
   { dg-skip-if "not IEEE float layout" { "pdp11-*-*" } }
   { dg-options "-O2 -Wformat -Wformat-overflow -ftrack-macro-expansion=0" } */

typedef __builtin_va_list va_list;

char dst[1];

extern void sink (int, void*);

/* Macro to test either width or precision specified by the asterisk
   (but not both).  */
#define T1(fmt, a)    sink (__builtin_sprintf (dst + 1, fmt, a, x), dst)

/* Macro to test both width and precision specified by the asterisk.  */
#define T2(fmt, w, p) sink (__builtin_sprintf (dst + 1, fmt, w, p, x), dst)

/* Macro to test vsprintf with both width and precision specified by
   the asterisk.  */
#define T(fmt) sink (__builtin_vsprintf (dst + 1, fmt, va), dst)

/* Exercise %a.  */
void test_a (int w, int p, double x)
{
  T1 ("%.*a", 0);     /* { dg-warning "between 3 and 10 bytes" } */
  T1 ("%.*a", 1);     /* { dg-warning "between 3 and 12 bytes" } */
  T1 ("%.*a", 2);     /* { dg-warning "between 3 and 13 bytes" } */
  T1 ("%.*a", 99);    /* { dg-warning "between 3 and 110 bytes" } */
  T1 ("%.*a", 199);   /* { dg-warning "between 3 and 210 bytes" } */
  T1 ("%.*a", 1099);  /* { dg-warning "between 3 and 1110 bytes" } */

  T1 ("%*.a", 0);     /* { dg-warning "between 3 and 10 bytes" } */
  T1 ("%*.a", 1);     /* { dg-warning "between 3 and 10 bytes" } */
  T1 ("%*.a", 3);     /* { dg-warning "between 3 and 10 bytes" } */
  T1 ("%*.a", 6);     /* { dg-warning "between 6 and 10 bytes" } */
  T1 ("%*.a", 7);     /* { dg-warning "between 7 and 10 bytes" } */

  T1 ("%*.a", w);     /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.0a", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.1a", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.2a", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */

  T1 ("%.*a",  p);    /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T1 ("%1.*a", p);    /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T1 ("%2.*a", p);    /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T1 ("%3.*a", p);    /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */

  T2 ("%*.*a", w, p); /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
}

/* Exercise %e.  */
void test_e (int w, int p, double x)
{
  T1 ("%.*e", 0);     /* { dg-warning "between 3 and 7 bytes" } */
  T1 ("%.*e", 1);     /* { dg-warning "between 3 and 9 bytes" } */
  T1 ("%.*e", 2);     /* { dg-warning "between 3 and 10 bytes" } */
  T1 ("%.*e", 99);    /* { dg-warning "between 3 and 107 bytes" } */
  T1 ("%.*e", 199);   /* { dg-warning "between 3 and 207 bytes" } */
  T1 ("%.*e", 1099);  /* { dg-warning "between 3 and 1107 bytes" } */

  T1 ("%*.e", 0);     /* { dg-warning "between 3 and 7 bytes" } */
  T1 ("%*.e", 1);     /* { dg-warning "between 3 and 7 bytes" } */
  T1 ("%*.e", 1);     /* { dg-warning "between 3 and 7 bytes" } */
  T1 ("%*.e", 3);     /* { dg-warning "between 3 and 7 bytes" } */
  T1 ("%*.e", 6);     /* { dg-warning "between 6 and 7 bytes" } */
  T1 ("%*.e", 7);     /* { dg-warning "writing 7 bytes" } */

  T1 ("%*.e", w);     /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.0e", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.1e", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.2e", w);    /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */

  T1 ("%.*e",  p);    /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
  T1 ("%1.*e", p);    /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
  T1 ("%2.*e", p);    /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
  T1 ("%3.*e", p);    /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */

  T2 ("%*.*e", w, p); /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
}

/* Exercise %f.  */
void test_f (int w, int p, double x)
{
  T1 ("%.*f", 0);           /* { dg-warning "between 1 and 310 bytes" } */
  T1 ("%.*f", 1);           /* { dg-warning "between 3 and 312 bytes" } */
  T1 ("%.*f", 2);           /* { dg-warning "between 3 and 313 bytes" } */
  T1 ("%.*f", 99);          /* { dg-warning "between 3 and 410 bytes" } */
  T1 ("%.*f", 199);         /* { dg-warning "between 3 and 510 bytes" } */
  T1 ("%.*f", 1099);        /* { dg-warning "between 3 and 1410 bytes" } */

  T2 ("%*.*f", 0, 0);       /* { dg-warning "between 1 and 310 bytes" } */
  T2 ("%*.*f", 1, 0);       /* { dg-warning "between 1 and 310 bytes" } */
  T2 ("%*.*f", 2, 0);       /* { dg-warning "between 2 and 310 bytes" } */
  T2 ("%*.*f", 3, 0);       /* { dg-warning "between 3 and 310 bytes" } */
  T2 ("%*.*f", 310, 0);     /* { dg-warning "writing 310 bytes" } */
  T2 ("%*.*f", 311, 0);     /* { dg-warning "writing 311 bytes" } */
  T2 ("%*.*f", 312, 312);   /* { dg-warning "between 312 and 623 bytes" } */
  T2 ("%*.*f", 312, 313);   /* { dg-warning "between 312 and 624 bytes" } */

  T1 ("%*.f", w);           /* { dg-warning "writing between 1 and (2147483648|32768) bytes" } */
  T1 ("%*.0f", w);          /* { dg-warning "writing between 1 and (2147483648|32768) bytes" } */
  T1 ("%*.1f", w);          /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T1 ("%*.2f", w);          /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */

  T1 ("%.*f",  p);          /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
  T1 ("%1.*f", p);          /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
  T1 ("%2.*f", p);          /* { dg-warning "writing between 2 and (2147483958|33078) bytes" } */
  T1 ("%3.*f", p);          /* { dg-warning "writing between 3 and (2147483958|33078) bytes" } */

  T2 ("%*.*f", w, p);       /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
}

/* Exercise %g.  The expected output is the lesser of %e and %f.  */
void test_g (double x)
{
  T1 ("%.*g", 0);           /* { dg-warning "between 1 and 7 bytes" } */
  T1 ("%.*g", 1);           /* { dg-warning "between 1 and 7 bytes" } */
  T1 ("%.*g", 2);           /* { dg-warning "between 1 and 9 bytes" } */
  T1 ("%.*g", 99);          /* { dg-warning "between 1 and 106 bytes" } */
  T1 ("%.*g", 199);         /* { dg-warning "between 1 and 206 bytes" } */
  T1 ("%.*g", 1099);        /* { dg-warning "between 1 and 310 bytes" } */

  T2 ("%*.*g", 0, 0);       /* { dg-warning "between 1 and 7 bytes" } */
  T2 ("%*.*g", 1, 0);       /* { dg-warning "between 1 and 7 bytes" } */
  T2 ("%*.*g", 2, 0);       /* { dg-warning "between 2 and 7 bytes" } */
  T2 ("%*.*g", 3, 0);       /* { dg-warning "between 3 and 7 bytes" } */
  T2 ("%*.*g", 7, 0);       /* { dg-warning "writing 7 bytes" } */
  T2 ("%*.*g", 310, 0);     /* { dg-warning "writing 310 bytes" } */
  T2 ("%*.*g", 311, 0);     /* { dg-warning "writing 311 bytes" } */
  T2 ("%*.*g", 312, 312);   /* { dg-warning "writing 312 bytes" } */
  T2 ("%*.*g", 312, 313);   /* { dg-warning "writing 312 bytes" } */
  T2 ("%*.*g", 333, 999);   /* { dg-warning "writing 333 bytes" } */
}

/* Exercise %a.  */
void test_a_va (va_list va)
{
  T ("%.0a");       /* { dg-warning "between 3 and 10 bytes" } */
  T ("%.1a");       /* { dg-warning "between 3 and 12 bytes" } */
  T ("%.2a");       /* { dg-warning "between 3 and 13 bytes" } */
  T ("%.99a");      /* { dg-warning "between 3 and 110 bytes" } */
  T ("%.199a");     /* { dg-warning "between 3 and 210 bytes" } */
  T ("%.1099a");    /* { dg-warning "between 3 and 1110 bytes" } */

  T ("%0.a");       /* { dg-warning "between 3 and 10 bytes" } */
  T ("%1.a");       /* { dg-warning "between 3 and 10 bytes" } */
  T ("%3.a");       /* { dg-warning "between 3 and 10 bytes" } */
  T ("%6.a");       /* { dg-warning "between 6 and 10 bytes" } */
  T ("%7.a");       /* { dg-warning "between 7 and 10 bytes" } */

  T ("%*.a");       /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T ("%*.0a");      /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T ("%*.1a");      /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */
  T ("%*.2a");      /* { dg-warning "writing between 3 and (2147483648|32768) bytes" } */

  T ("%.*a");       /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T ("%1.*a");      /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T ("%2.*a");      /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
  T ("%6.*a");      /* { dg-warning "writing between 6 and (2147483658|32778) bytes" } */
  T ("%9.*a");      /* { dg-warning "writing between 9 and (2147483658|32778) bytes" } */

  T ("%*.*a");      /* { dg-warning "writing between 3 and (2147483658|32778) bytes" } */
}

/* Exercise %e.  */
void test_e_va (va_list va)
{
  T ("%e");         /* { dg-warning "between 3 and 14 bytes" } */
  T ("%+e");        /* { dg-warning "between 4 and 14 bytes" } */
  T ("% e");        /* { dg-warning "between 4 and 14 bytes" } */
  T ("%#e");        /* { dg-warning "between 3 and 14 bytes" } */
  T ("%#+e");       /* { dg-warning "between 4 and 14 bytes" } */
  T ("%# e");       /* { dg-warning "between 4 and 14 bytes" } */

  T ("%.e");        /* { dg-warning "between 3 and 7 bytes" } */
  T ("%.0e");       /* { dg-warning "between 3 and 7 bytes" } */
  T ("%.1e");       /* { dg-warning "between 3 and 9 bytes" } */
  T ("%.2e");       /* { dg-warning "between 3 and 10 bytes" } */
  T ("%.99e");      /* { dg-warning "between 3 and 107 bytes" } */
  T ("%.199e");     /* { dg-warning "between 3 and 207 bytes" } */
  T ("%.1099e");    /* { dg-warning "between 3 and 1107 bytes" } */

  T ("%0.e");       /* { dg-warning "between 3 and 7 bytes" } */
  T ("%1.e");       /* { dg-warning "between 3 and 7 bytes" } */
  T ("%1.e");       /* { dg-warning "between 3 and 7 bytes" } */
  T ("%3.e");       /* { dg-warning "between 3 and 7 bytes" } */
  T ("%6.e");       /* { dg-warning "between 6 and 7 bytes" } */
  T ("%7.e");       /* { dg-warning "writing 7 bytes" } */

  T ("%.*e");       /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
  T ("%1.*e");      /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
  T ("%6.*e");      /* { dg-warning "writing between 6 and (2147483655|32775) bytes" } */
  T ("%9.*e");      /* { dg-warning "writing between 9 and (2147483655|32775) bytes" } */

  T ("%*.*e");      /* { dg-warning "writing between 3 and (2147483655|32775) bytes" } */
}

/* Exercise %f.  */
void test_f_va (va_list va)
{
  T ("%f");         /* { dg-warning "between 3 and 317 bytes" } */
  T ("%+f");        /* { dg-warning "between 4 and 317 bytes" } */
  T ("% f");        /* { dg-warning "between 4 and 317 bytes" } */
  T ("%#f");        /* { dg-warning "between 3 and 317 bytes" } */
  T ("%+f");        /* { dg-warning "between 4 and 317 bytes" } */
  T ("% f");        /* { dg-warning "between 4 and 317 bytes" } */
  T ("%#+f");       /* { dg-warning "between 4 and 317 bytes" } */
  T ("%# f");       /* { dg-warning "between 4 and 317 bytes" } */

  T ("%.f");        /* { dg-warning "between 1 and 310 bytes" } */
  T ("%.0f");       /* { dg-warning "between 1 and 310 bytes" } */
  T ("%.1f");       /* { dg-warning "between 3 and 312 bytes" } */
  T ("%.2f");       /* { dg-warning "between 3 and 313 bytes" } */
  T ("%.99f");      /* { dg-warning "between 3 and 410 bytes" } */
  T ("%.199f");     /* { dg-warning "between 3 and 510 bytes" } */
  T ("%.1099f");    /* { dg-warning "between 3 and 1410 bytes" } */

  T ("%0.0f");      /* { dg-warning "between 1 and 310 bytes" } */
  T ("%1.0f");      /* { dg-warning "between 1 and 310 bytes" } */
  T ("%2.0f");      /* { dg-warning "between 2 and 310 bytes" } */
  T ("%3.0f");      /* { dg-warning "between 3 and 310 bytes" } */
  T ("%310.0f");    /* { dg-warning "writing 310 bytes" } */
  T ("%311.0f");    /* { dg-warning "writing 311 bytes" } */
  T ("%312.312f");  /* { dg-warning "between 312 and 623 bytes" } */
  T ("%312.313f");  /* { dg-warning "between 312 and 624 bytes" } */

  T ("%.*f");       /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
  T ("%1.*f");      /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
  T ("%3.*f");      /* { dg-warning "writing between 3 and (2147483958|33078) bytes" } */

  T ("%*.*f");      /* { dg-warning "writing between 1 and (2147483958|33078) bytes" } */
}

/* Exercise %g.  The expected output is the lesser of %e and %f.  */
void test_g_va (va_list va)
{
  T ("%g");         /* { dg-warning "between 1 and 13 bytes" } */
  T ("%+g");        /* { dg-warning "between 2 and 13 bytes" } */
  T ("% g");        /* { dg-warning "between 2 and 13 bytes" } */

  /* The pound flag means the radix character is always present.  */
  T ("%#g");        /* { dg-warning "between 2 and 13 bytes" } */
  T ("%#+g");       /* { dg-warning "between 3 and 13 bytes" } */
  T ("%# g");       /* { dg-warning "between 3 and 13 bytes" } */

  T ("%.g");        /* { dg-warning "between 1 and 7 bytes" } */
  T ("%.0g");       /* { dg-warning "between 1 and 7 bytes" } */
  T ("%.1g");       /* { dg-warning "between 1 and 7 bytes" } */
  T ("%.2g");       /* { dg-warning "between 1 and 9 bytes" } */
  T ("%.99g");      /* { dg-warning "between 1 and 106 bytes" } */
  T ("%.199g");     /* { dg-warning "between 1 and 206 bytes" } */
  T ("%.1099g");    /* { dg-warning "between 1 and 310 bytes" } */

  T ("%0.0g");      /* { dg-warning "between 1 and 7 bytes" } */
  T ("%1.0g");      /* { dg-warning "between 1 and 7 bytes" } */
  T ("%2.0g");      /* { dg-warning "between 2 and 7 bytes" } */
  T ("%3.0g");      /* { dg-warning "between 3 and 7 bytes" } */
  T ("%7.0g");      /* { dg-warning "writing 7 bytes" } */
  T ("%310.0g");    /* { dg-warning "writing 310 bytes" } */
  T ("%311.0g");    /* { dg-warning "writing 311 bytes" } */
  T ("%312.312g");  /* { dg-warning "writing 312 bytes" } */
  T ("%312.313g");  /* { dg-warning "writing 312 bytes" } */
  T ("%333.999g");  /* { dg-warning "writing 333 bytes" } */

  T ("%.*g");       /* { dg-warning "writing between 1 and 310 bytes" } */
  T ("%1.*g");      /* { dg-warning "writing between 1 and 310 bytes" } */
  T ("%4.*g");      /* { dg-warning "writing between 4 and 310 bytes" } */

  T ("%*.*g");      /* { dg-warning "writing between 1 and (2147483648|32768) bytes" } */
}