[thirdparty/glibc.git] / stdio-common / tstdiomisc.c

#include <float.h>
#include <math.h>
#include <stdio.h>
#include <string.h>
#include <wchar.h>

static int
t1 (void)
{
  int n = -1;
  sscanf ("abc  ", "abc %n", &n);
  printf ("t1: count=%d\n", n);

  return n != 5;
}

static int
t2 (void)
{
  int result = 0;
  int n;
  long N;
  int retval;
#define SCAN(INPUT, FORMAT, VAR, EXP_RES, EXP_VAL) \
  VAR = -1; \
  retval = sscanf (INPUT, FORMAT, &VAR); \
  printf ("sscanf (\"%s\", \"%s\", &x) => %d, x = %ld\n", \
	  INPUT, FORMAT, retval, (long int) VAR); \
  result |= retval != EXP_RES || VAR != EXP_VAL

  SCAN ("12345", "%ld", N, 1, 12345);
  SCAN ("12345", "%llllld", N, 0, -1);
  SCAN ("12345", "%LLLLLd", N, 0, -1);
  SCAN ("test ", "%*s%n",  n, 0, 4);
  SCAN ("test ", "%2*s%n",  n, 0, -1);
  SCAN ("12 ",   "%l2d",  n, 0, -1);
  SCAN ("12 ",   "%2ld",  N, 1, 12);

  n = -1;
  N = -1;
  retval = sscanf ("1 1", "%d %Z", &n, &N);
  printf ("sscanf (\"1 1\", \"%%d %%Z\", &n, &N) => %d, n = %d, N = %ld\n", \
	  retval, n, N); \
  result |= retval != 1 || n != 1 || N != -1;

  return result;
}

volatile double qnanval;
volatile double infval;
volatile long double lqnanval;
volatile long double linfval;


static int
F (void)
{
  char buf[80];
  wchar_t wbuf[40];
  int result;

  qnanval = NAN;

  snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	    qnanval, qnanval, qnanval, qnanval,
	    qnanval, qnanval, qnanval, qnanval);
  result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
  printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);

  snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	    -qnanval, -qnanval, -qnanval, -qnanval,
	    -qnanval, -qnanval, -qnanval, -qnanval);
  result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
  printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
	  buf);

  infval = DBL_MAX * DBL_MAX;

  snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	    infval, infval, infval, infval, infval, infval, infval, infval);
  result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
  printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);

  snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	    -infval, -infval, -infval, -infval,
	    -infval, -infval, -infval, -infval);
  result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
  printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
	  buf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	    qnanval, qnanval, qnanval, qnanval,
	    qnanval, qnanval, qnanval, qnanval);
  result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
  printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	    -qnanval, -qnanval, -qnanval, -qnanval,
	    -qnanval, -qnanval, -qnanval, -qnanval);
  result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
  printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
	  wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	    infval, infval, infval, infval, infval, infval, infval, infval);
  result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
  printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	    -infval, -infval, -infval, -infval,
	    -infval, -infval, -infval, -infval);
  result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
  printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
	  wbuf);

  lqnanval = NAN;

  snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	    lqnanval, lqnanval, lqnanval, lqnanval,
	    lqnanval, lqnanval, lqnanval, lqnanval);
  result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
  printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);

  snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	    -lqnanval, -lqnanval, -lqnanval, -lqnanval,
	    -lqnanval, -lqnanval, -lqnanval, -lqnanval);
  result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
  printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
	  buf);

  linfval = LDBL_MAX * LDBL_MAX;

  snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	    linfval, linfval, linfval, linfval,
	    linfval, linfval, linfval, linfval);
  result |= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
  printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);

  snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	    -linfval, -linfval, -linfval, -linfval,
	    -linfval, -linfval, -linfval, -linfval);
  result |= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
  printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
	  buf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	    L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	    lqnanval, lqnanval, lqnanval, lqnanval,
	    lqnanval, lqnanval, lqnanval, lqnanval);
  result |= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
  printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	    L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	    -lqnanval, -lqnanval, -lqnanval, -lqnanval,
	    -lqnanval, -lqnanval, -lqnanval, -lqnanval);
  result |= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
  printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
	  wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	    L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	    linfval, linfval, linfval, linfval,
	    linfval, linfval, linfval, linfval);
  result |= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
  printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);

  swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	    L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	    -linfval, -linfval, -linfval, -linfval,
	    -linfval, -linfval, -linfval, -linfval);
  result |= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
  printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
	  wbuf);

  return result;
}

int
main (int argc, char *argv[])
{
  int result = 0;

  result |= t1 ();
  result |= t2 ();
  result |= F ();

  result |= fflush (stdout) == EOF;

  return result;
}
Commit	Line	Data
6c46718f UD	1	#include <float.h>
6c46718f UD	2	#include <math.h>
196980f5	3	#include <stdio.h>
6c46718f UD	4	#include <string.h>
6c46718f UD	5	#include <wchar.h>
196980f5	6
1a511d31	7	static int
11336c16	8	t1 (void)
196980f5 RM	9	{
	10	int n = -1;
	11	sscanf ("abc ", "abc %n", &n);
	12	printf ("t1: count=%d\n", n);
05be689b RM	13
05be689b RM	14	return n != 5;
196980f5 RM	15	}
196980f5 RM	16
1a511d31	17	static int
11336c16	18	t2 (void)
196980f5	19	{
05be689b	20	int result = 0;
196980f5 RM	21	int n;
	22	long N;
	23	int retval;
05be689b	24	#define SCAN(INPUT, FORMAT, VAR, EXP_RES, EXP_VAL) \
196980f5	25	VAR = -1; \
77d10f94	26	retval = sscanf (INPUT, FORMAT, &VAR); \
196980f5	27	printf ("sscanf (\"%s\", \"%s\", &x) => %d, x = %ld\n", \
27658f20	28	INPUT, FORMAT, retval, (long int) VAR); \
05be689b RM	29	result \|= retval != EXP_RES \|\| VAR != EXP_VAL
	30
	31	SCAN ("12345", "%ld", N, 1, 12345);
27658f20 UD	32	SCAN ("12345", "%llllld", N, 0, -1);
27658f20 UD	33	SCAN ("12345", "%LLLLLd", N, 0, -1);
8d57beea	34	SCAN ("test ", "%*s%n", n, 0, 4);
27658f20 UD	35	SCAN ("test ", "%2*s%n", n, 0, -1);
27658f20 UD	36	SCAN ("12 ", "%l2d", n, 0, -1);
05be689b RM	37	SCAN ("12 ", "%2ld", N, 1, 12);
05be689b RM	38
27658f20 UD	39	n = -1;
	40	N = -1;
	41	retval = sscanf ("1 1", "%d %Z", &n, &N);
	42	printf ("sscanf (\"1 1\", \"%%d %%Z\", &n, &N) => %d, n = %d, N = %ld\n", \
	43	retval, n, N); \
	44	result \|= retval != 1 \|\| n != 1 \|\| N != -1;
	45
05be689b	46	return result;
196980f5 RM	47	}
196980f5 RM	48
67e971f1	49	volatile double qnanval;
003c9895	50	volatile double infval;
67e971f1	51	volatile long double lqnanval;
003c9895	52	volatile long double linfval;
38cbcf0a	53
11f685f5	54
1a511d31	55	static int
6c46718f UD	56	F (void)
6c46718f UD	57	{
003c9895 UD	58	char buf[80];
003c9895 UD	59	wchar_t wbuf[40];
6c46718f UD	60	int result;
6c46718f UD	61
67e971f1	62	qnanval = NAN;
38cbcf0a	63
003c9895	64	snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
67e971f1 TS	65	qnanval, qnanval, qnanval, qnanval,
67e971f1 TS	66	qnanval, qnanval, qnanval, qnanval);
003c9895 UD	67	result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
	68	printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);
	69
	70	snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
67e971f1 TS	71	-qnanval, -qnanval, -qnanval, -qnanval,
67e971f1 TS	72	-qnanval, -qnanval, -qnanval, -qnanval);
003c9895 UD	73	result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
	74	printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
	75	buf);
	76
	77	infval = DBL_MAX * DBL_MAX;
	78
	79	snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	80	infval, infval, infval, infval, infval, infval, infval, infval);
	81	result \|= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
	82	printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);
	83
	84	snprintf (buf, sizeof buf, "%a %A %e %E %f %F %g %G",
	85	-infval, -infval, -infval, -infval,
	86	-infval, -infval, -infval, -infval);
	87	result \|= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
	88	printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
	89	buf);
	90
	91	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
67e971f1 TS	92	qnanval, qnanval, qnanval, qnanval,
67e971f1 TS	93	qnanval, qnanval, qnanval, qnanval);
003c9895 UD	94	result \|= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
	95	printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);
	96
	97	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
67e971f1 TS	98	-qnanval, -qnanval, -qnanval, -qnanval,
67e971f1 TS	99	-qnanval, -qnanval, -qnanval, -qnanval);
003c9895 UD	100	result \|= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
	101	printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
	102	wbuf);
	103
	104	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	105	infval, infval, infval, infval, infval, infval, infval, infval);
	106	result \|= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
	107	printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);
	108
	109	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]), L"%a %A %e %E %f %F %g %G",
	110	-infval, -infval, -infval, -infval,
	111	-infval, -infval, -infval, -infval);
	112	result \|= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
	113	printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
	114	wbuf);
	115
67e971f1	116	lqnanval = NAN;
003c9895 UD	117
003c9895 UD	118	snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
67e971f1 TS	119	lqnanval, lqnanval, lqnanval, lqnanval,
67e971f1 TS	120	lqnanval, lqnanval, lqnanval, lqnanval);
003c9895 UD	121	result = strcmp (buf, "nan NAN nan NAN nan NAN nan NAN") != 0;
	122	printf ("expected \"nan NAN nan NAN nan NAN nan NAN\", got \"%s\"\n", buf);
	123
	124	snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
67e971f1 TS	125	-lqnanval, -lqnanval, -lqnanval, -lqnanval,
67e971f1 TS	126	-lqnanval, -lqnanval, -lqnanval, -lqnanval);
003c9895 UD	127	result = strcmp (buf, "-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
	128	printf ("expected \"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got \"%s\"\n",
	129	buf);
	130
	131	linfval = LDBL_MAX * LDBL_MAX;
	132
	133	snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	134	linfval, linfval, linfval, linfval,
	135	linfval, linfval, linfval, linfval);
	136	result \|= strcmp (buf, "inf INF inf INF inf INF inf INF") != 0;
	137	printf ("expected \"inf INF inf INF inf INF inf INF\", got \"%s\"\n", buf);
	138
	139	snprintf (buf, sizeof buf, "%La %LA %Le %LE %Lf %LF %Lg %LG",
	140	-linfval, -linfval, -linfval, -linfval,
	141	-linfval, -linfval, -linfval, -linfval);
	142	result \|= strcmp (buf, "-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
	143	printf ("expected \"-inf -INF -inf -INF -inf -INF -inf -INF\", got \"%s\"\n",
	144	buf);
	145
	146	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	147	L"%La %LA %Le %LE %Lf %LF %Lg %LG",
67e971f1 TS	148	lqnanval, lqnanval, lqnanval, lqnanval,
67e971f1 TS	149	lqnanval, lqnanval, lqnanval, lqnanval);
003c9895 UD	150	result \|= wcscmp (wbuf, L"nan NAN nan NAN nan NAN nan NAN") != 0;
	151	printf ("expected L\"nan NAN nan NAN nan NAN nan NAN\", got L\"%S\"\n", wbuf);
	152
	153	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	154	L"%La %LA %Le %LE %Lf %LF %Lg %LG",
67e971f1 TS	155	-lqnanval, -lqnanval, -lqnanval, -lqnanval,
67e971f1 TS	156	-lqnanval, -lqnanval, -lqnanval, -lqnanval);
003c9895 UD	157	result \|= wcscmp (wbuf, L"-nan -NAN -nan -NAN -nan -NAN -nan -NAN") != 0;
	158	printf ("expected L\"-nan -NAN -nan -NAN -nan -NAN -nan -NAN\", got L\"%S\"\n",
	159	wbuf);
	160
	161	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	162	L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	163	linfval, linfval, linfval, linfval,
	164	linfval, linfval, linfval, linfval);
	165	result \|= wcscmp (wbuf, L"inf INF inf INF inf INF inf INF") != 0;
	166	printf ("expected L\"inf INF inf INF inf INF inf INF\", got L\"%S\"\n", wbuf);
	167
	168	swprintf (wbuf, sizeof wbuf / sizeof (wbuf[0]),
	169	L"%La %LA %Le %LE %Lf %LF %Lg %LG",
	170	-linfval, -linfval, -linfval, -linfval,
	171	-linfval, -linfval, -linfval, -linfval);
	172	result \|= wcscmp (wbuf, L"-inf -INF -inf -INF -inf -INF -inf -INF") != 0;
	173	printf ("expected L\"-inf -INF -inf -INF -inf -INF -inf -INF\", got L\"%S\"\n",
	174	wbuf);
6c46718f UD	175
	176	return result;
	177	}
	178
196980f5	179	int
11336c16	180	main (int argc, char *argv[])
196980f5	181	{
05be689b RM	182	int result = 0;
	183
	184	result \|= t1 ();
	185	result \|= t2 ();
6c46718f	186	result \|= F ();
05be689b RM	187
05be689b RM	188	result \|= fflush (stdout) == EOF;
196980f5	189
05be689b	190	return result;
196980f5	191	}