File:  [Research Unix] / researchv10no / cmd / lcc / ph / timeq1.c
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

/* The Plum Hall Validation Suite for C
 * Unpublished copyright (c) 1986-1991, Chiron Systems Inc and Plum Hall Inc.
 * VERSION: 4
 * DATE: 1993-01-01
 * The "ANSI" mode of the Suite corresponds to the official ANSI C, X3.159-1989.
 * As per your license agreement, your distribution is not to be moved or copied outside the Designated Site
 * without specific permission from Plum Hall Inc.
 */

#define ANSI 1  /* This file follows ANSI arithmetic rules, which may not work in non-ANSI modes */
#include "types.h"
int main()
	{
	extern char *Filename;
	auto CHAR Ac = 7;
#if ANSI
	auto SCHAR Asc = 8;
#endif
	auto SHORT As = 9;
	auto INT Ai = 10;
	auto UCHAR Auc = 11;
	auto USHORT Aus = 12;
	auto UINT Aui = 13;
	auto LONG Al = 14;
	auto ULONG Aul = 15;
	auto FLOAT Af = 16;
	auto DOUBLE Ad = 17;
#if ANSI
	auto LDOUBLE Ald = 18;
#endif
	{
	typedef union {
		CHAR c;
		SHORT s;
		INT i;
		UCHAR uc;
		USHORT us;
		UINT ui;
		LONG l;
		ULONG ul;
		FLOAT f;
		DOUBLE d;
#if ANSI
		SCHAR sc;
		LDOUBLE ld;
#endif
		} D;
	auto D D1;
#if ANSI
	auto D D2;
#endif
	auto D D3;
	auto D D4;
	auto D D5;
	auto D D6;
	auto D D7;
	auto D D8;
	auto D D9;
	auto D D10;
	auto D D11;
#if ANSI
	auto D D12;
#endif
	D1.c = 7;
#if ANSI
	D2.sc = 8;
#endif
	D3.s = 9;
	D4.i = 10;
	D5.uc = 11;
	D6.us = 12;
	D7.ui = 13;
	D8.l = 14;
	D9.ul = 15;
	D10.f = 16;
	D11.d = 17;
#if ANSI
	D12.ld = 18;
#endif
	{
	int true = 1, false = 0;
	Filename =  " auto scalar auto union timeq1 ";
	Ac = 7; D1.c = 7;
	Ac *= D1.c;
	iequals(__LINE__, Ac, (CHAR)49);
	Ac = 7;
	iequals(__LINE__, Ac *= D1.c, (CHAR)49);
	D1.c = 7; Ac = 7;
	D1.c *= Ac;
	iequals(__LINE__, D1.c, (CHAR)49);
	D1.c = 7;
	iequals(__LINE__, D1.c *= Ac, (CHAR)49);
#if ANSI
	Ac = 7; D2.sc = 8;
	Ac *= D2.sc;
	iequals(__LINE__, Ac, (CHAR)56);
	Ac = 7;
	iequals(__LINE__, Ac *= D2.sc, (CHAR)56);
	D2.sc = 8; Ac = 7;
	D2.sc *= Ac;
	iequals(__LINE__, D2.sc, (SCHAR)56);
	D2.sc = 8;
	iequals(__LINE__, D2.sc *= Ac, (SCHAR)56);
#endif
	Ac = 7; D3.s = 9;
	Ac *= D3.s;
	iequals(__LINE__, Ac, (CHAR)63);
	Ac = 7;
	iequals(__LINE__, Ac *= D3.s, (CHAR)63);
	D3.s = 9; Ac = 7;
	D3.s *= Ac;
	iequals(__LINE__, D3.s, (SHORT)63);
	D3.s = 9;
	iequals(__LINE__, D3.s *= Ac, (SHORT)63);
	Ac = 7; D4.i = 10;
	Ac *= D4.i;
	iequals(__LINE__, Ac, (CHAR)70);
	Ac = 7;
	iequals(__LINE__, Ac *= D4.i, (CHAR)70);
	D4.i = 10; Ac = 7;
	D4.i *= Ac;
	iequals(__LINE__, D4.i, (INT)70);
	D4.i = 10;
	iequals(__LINE__, D4.i *= Ac, (INT)70);
	Ac = 7; D5.uc = 11;
	Ac *= D5.uc;
	iequals(__LINE__, Ac, (CHAR)77);
	Ac = 7;
	iequals(__LINE__, Ac *= D5.uc, (CHAR)77);
	D5.uc = 11; Ac = 7;
	D5.uc *= Ac;
	iequals(__LINE__, D5.uc, (UCHAR)77);
	D5.uc = 11;
	iequals(__LINE__, D5.uc *= Ac, (UCHAR)77);
	Ac = 7; D6.us = 12;
	Ac *= D6.us;
	iequals(__LINE__, Ac, (CHAR)84);
	Ac = 7;
	iequals(__LINE__, Ac *= D6.us, (CHAR)84);
	D6.us = 12; Ac = 7;
	D6.us *= Ac;
	iequals(__LINE__, D6.us, (USHORT)84);
	D6.us = 12;
	iequals(__LINE__, D6.us *= Ac, (USHORT)84);
	Ac = 7; D7.ui = 13;
	Ac *= D7.ui;
	iequals(__LINE__, Ac, (CHAR)91);
	Ac = 7;
	iequals(__LINE__, Ac *= D7.ui, (CHAR)91);
	D7.ui = 13; Ac = 7;
	D7.ui *= Ac;
	iequals(__LINE__, D7.ui, (UINT)91);
	D7.ui = 13;
	iequals(__LINE__, D7.ui *= Ac, (UINT)91);
	Ac = 7; D8.l = 14;
	Ac *= D8.l;
	iequals(__LINE__, Ac, (CHAR)98);
	Ac = 7;
	iequals(__LINE__, Ac *= D8.l, (CHAR)98);
	D8.l = 14; Ac = 7;
	D8.l *= Ac;
	lequals(__LINE__, D8.l, (LONG)98L);
	D8.l = 14;
	lequals(__LINE__, D8.l *= Ac, (LONG)98L);
	Ac = 7; D9.ul = 15;
	Ac *= D9.ul;
	iequals(__LINE__, Ac, (CHAR)105);
	Ac = 7;
	iequals(__LINE__, Ac *= D9.ul, (CHAR)105);
	D9.ul = 15; Ac = 7;
	D9.ul *= Ac;
	lequals(__LINE__, D9.ul, (ULONG)105L);
	D9.ul = 15;
	lequals(__LINE__, D9.ul *= Ac, (ULONG)105L);
	Ac = 7; D10.f = 16;
	Ac *= D10.f;
	iequals(__LINE__, Ac, (CHAR)112);
	Ac = 7;
	iequals(__LINE__, Ac *= D10.f, (CHAR)112);
	D10.f = 16; Ac = 7;
	D10.f *= Ac;
	dequals(__LINE__, D10.f, (FLOAT)112.);
	D10.f = 16;
	dequals(__LINE__, D10.f *= Ac, (FLOAT)112.);
	Ac = 7; D11.d = 17;
	Ac *= D11.d;
	iequals(__LINE__, Ac, (CHAR)119);
	Ac = 7;
	iequals(__LINE__, Ac *= D11.d, (CHAR)119);
	D11.d = 17; Ac = 7;
	D11.d *= Ac;
	dequals(__LINE__, D11.d, (DOUBLE)119.);
	D11.d = 17;
	dequals(__LINE__, D11.d *= Ac, (DOUBLE)119.);
#if ANSI
	Ac = 7; D12.ld = 18;
	Ac *= D12.ld;
	iequals(__LINE__, Ac, (CHAR)126);
	Ac = 7;
	iequals(__LINE__, Ac *= D12.ld, (CHAR)126);
	D12.ld = 18; Ac = 7;
	D12.ld *= Ac;
	ldequals(__LINE__, D12.ld, (LDOUBLE)126.L);
	D12.ld = 18;
	ldequals(__LINE__, D12.ld *= Ac, (LDOUBLE)126.L);
#endif
#if ANSI
	Asc = 8; D1.c = 7;
	Asc *= D1.c;
	iequals(__LINE__, Asc, (SCHAR)56);
	Asc = 8;
	iequals(__LINE__, Asc *= D1.c, (SCHAR)56);
	D1.c = 7; Asc = 8;
	D1.c *= Asc;
	iequals(__LINE__, D1.c, (CHAR)56);
	D1.c = 7;
	iequals(__LINE__, D1.c *= Asc, (CHAR)56);
#endif
#if ANSI
	Asc = 8; D2.sc = 8;
	Asc *= D2.sc;
	iequals(__LINE__, Asc, (SCHAR)64);
	Asc = 8;
	iequals(__LINE__, Asc *= D2.sc, (SCHAR)64);
	D2.sc = 8; Asc = 8;
	D2.sc *= Asc;
	iequals(__LINE__, D2.sc, (SCHAR)64);
	D2.sc = 8;
	iequals(__LINE__, D2.sc *= Asc, (SCHAR)64);
#endif
#if ANSI
	Asc = 8; D3.s = 9;
	Asc *= D3.s;
	iequals(__LINE__, Asc, (SCHAR)72);
	Asc = 8;
	iequals(__LINE__, Asc *= D3.s, (SCHAR)72);
	D3.s = 9; Asc = 8;
	D3.s *= Asc;
	iequals(__LINE__, D3.s, (SHORT)72);
	D3.s = 9;
	iequals(__LINE__, D3.s *= Asc, (SHORT)72);
#endif
#if ANSI
	Asc = 8; D4.i = 10;
	Asc *= D4.i;
	iequals(__LINE__, Asc, (SCHAR)80);
	Asc = 8;
	iequals(__LINE__, Asc *= D4.i, (SCHAR)80);
	D4.i = 10; Asc = 8;
	D4.i *= Asc;
	iequals(__LINE__, D4.i, (INT)80);
	D4.i = 10;
	iequals(__LINE__, D4.i *= Asc, (INT)80);
#endif
#if ANSI
	Asc = 8; D5.uc = 11;
	Asc *= D5.uc;
	iequals(__LINE__, Asc, (SCHAR)88);
	Asc = 8;
	iequals(__LINE__, Asc *= D5.uc, (SCHAR)88);
	D5.uc = 11; Asc = 8;
	D5.uc *= Asc;
	iequals(__LINE__, D5.uc, (UCHAR)88);
	D5.uc = 11;
	iequals(__LINE__, D5.uc *= Asc, (UCHAR)88);
#endif
#if ANSI
	Asc = 8; D6.us = 12;
	Asc *= D6.us;
	iequals(__LINE__, Asc, (SCHAR)96);
	Asc = 8;
	iequals(__LINE__, Asc *= D6.us, (SCHAR)96);
	D6.us = 12; Asc = 8;
	D6.us *= Asc;
	iequals(__LINE__, D6.us, (USHORT)96);
	D6.us = 12;
	iequals(__LINE__, D6.us *= Asc, (USHORT)96);
#endif
#if ANSI
	Asc = 8; D7.ui = 13;
	Asc *= D7.ui;
	iequals(__LINE__, Asc, (SCHAR)104);
	Asc = 8;
	iequals(__LINE__, Asc *= D7.ui, (SCHAR)104);
	D7.ui = 13; Asc = 8;
	D7.ui *= Asc;
	iequals(__LINE__, D7.ui, (UINT)104);
	D7.ui = 13;
	iequals(__LINE__, D7.ui *= Asc, (UINT)104);
#endif
#if ANSI
	Asc = 8; D8.l = 14;
	Asc *= D8.l;
	iequals(__LINE__, Asc, (SCHAR)112);
	Asc = 8;
	iequals(__LINE__, Asc *= D8.l, (SCHAR)112);
	D8.l = 14; Asc = 8;
	D8.l *= Asc;
	lequals(__LINE__, D8.l, (LONG)112L);
	D8.l = 14;
	lequals(__LINE__, D8.l *= Asc, (LONG)112L);
#endif
#if ANSI
	Asc = 8; D9.ul = 15;
	Asc *= D9.ul;
	iequals(__LINE__, Asc, (SCHAR)120);
	Asc = 8;
	iequals(__LINE__, Asc *= D9.ul, (SCHAR)120);
	D9.ul = 15; Asc = 8;
	D9.ul *= Asc;
	lequals(__LINE__, D9.ul, (ULONG)120L);
	D9.ul = 15;
	lequals(__LINE__, D9.ul *= Asc, (ULONG)120L);
#endif
#if ANSI
	Asc = 8; D10.f = 15;
	Asc *= D10.f;
	iequals(__LINE__, Asc, (SCHAR)120);
	Asc = 8;
	iequals(__LINE__, Asc *= D10.f, (SCHAR)120);
	D10.f = 15; Asc = 8;
	D10.f *= Asc;
	dequals(__LINE__, D10.f, (FLOAT)120.);
	D10.f = 15;
	dequals(__LINE__, D10.f *= Asc, (FLOAT)120.);
#endif
#if ANSI
	Asc = 8; D11.d = 15;
	Asc *= D11.d;
	iequals(__LINE__, Asc, (SCHAR)120);
	Asc = 8;
	iequals(__LINE__, Asc *= D11.d, (SCHAR)120);
	D11.d = 15; Asc = 8;
	D11.d *= Asc;
	dequals(__LINE__, D11.d, (DOUBLE)120.);
	D11.d = 15;
	dequals(__LINE__, D11.d *= Asc, (DOUBLE)120.);
#endif
#if ANSI
	Asc = 8; D12.ld = 15;
	Asc *= D12.ld;
	iequals(__LINE__, Asc, (SCHAR)120);
	Asc = 8;
	iequals(__LINE__, Asc *= D12.ld, (SCHAR)120);
	D12.ld = 15; Asc = 8;
	D12.ld *= Asc;
	ldequals(__LINE__, D12.ld, (LDOUBLE)120.L);
	D12.ld = 15;
	ldequals(__LINE__, D12.ld *= Asc, (LDOUBLE)120.L);
#endif
	As = 9; D1.c = 7;
	As *= D1.c;
	iequals(__LINE__, As, (SHORT)63);
	As = 9;
	iequals(__LINE__, As *= D1.c, (SHORT)63);
	D1.c = 7; As = 9;
	D1.c *= As;
	iequals(__LINE__, D1.c, (CHAR)63);
	D1.c = 7;
	iequals(__LINE__, D1.c *= As, (CHAR)63);
#if ANSI
	As = 9; D2.sc = 8;
	As *= D2.sc;
	iequals(__LINE__, As, (SHORT)72);
	As = 9;
	iequals(__LINE__, As *= D2.sc, (SHORT)72);
	D2.sc = 8; As = 9;
	D2.sc *= As;
	iequals(__LINE__, D2.sc, (SCHAR)72);
	D2.sc = 8;
	iequals(__LINE__, D2.sc *= As, (SCHAR)72);
#endif
	As = 9; D3.s = 9;
	As *= D3.s;
	iequals(__LINE__, As, (SHORT)81);
	As = 9;
	iequals(__LINE__, As *= D3.s, (SHORT)81);
	D3.s = 9; As = 9;
	D3.s *= As;
	iequals(__LINE__, D3.s, (SHORT)81);
	D3.s = 9;
	iequals(__LINE__, D3.s *= As, (SHORT)81);
	As = 9; D4.i = 10;
	As *= D4.i;
	iequals(__LINE__, As, (SHORT)90);
	As = 9;
	iequals(__LINE__, As *= D4.i, (SHORT)90);
	D4.i = 10; As = 9;
	D4.i *= As;
	iequals(__LINE__, D4.i, (INT)90);
	D4.i = 10;
	iequals(__LINE__, D4.i *= As, (INT)90);
	As = 9; D5.uc = 11;
	As *= D5.uc;
	iequals(__LINE__, As, (SHORT)99);
	As = 9;
	iequals(__LINE__, As *= D5.uc, (SHORT)99);
	D5.uc = 11; As = 9;
	D5.uc *= As;
	iequals(__LINE__, D5.uc, (UCHAR)99);
	D5.uc = 11;
	iequals(__LINE__, D5.uc *= As, (UCHAR)99);
	As = 9; D6.us = 12;
	As *= D6.us;
	iequals(__LINE__, As, (SHORT)108);
	As = 9;
	iequals(__LINE__, As *= D6.us, (SHORT)108);
	D6.us = 12; As = 9;
	D6.us *= As;
	iequals(__LINE__, D6.us, (USHORT)108);
	D6.us = 12;
	iequals(__LINE__, D6.us *= As, (USHORT)108);
	}}
	return 	report(Filename);
	}

unix.superglobalmegacorp.com

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.