SingleSource/Benchmarks/Dhrystone/fldry.c - third_party/llvm-test-suite - Git at Google

 /*
  *
  *	"DHRYSTONE" Benchmark Program
  *
  *	Version:	C/1.1, 12/01/84
  *
  *	Date:		PROGRAM updated 01/06/86, COMMENTS changed 01/31/87
  *
  *	Author:		Reinhold P. Weicker,  CACM Vol 27, No 10, 10/84 pg. 1013
  *			Translated from ADA by Rick Richardson
  *			Every method to preserve ADA-likeness has been used,
  *			at the expense of C-ness.
  *
  *	Compile:	cc -O dry.c -o drynr			: No registers
  *			cc -O -DREG=register dry.c -o dryr	: Registers
  *
  *	Defines:	Defines are provided for old C compiler's
  *			which don't have enums, and can't assign structures.
  *			The time(2) function is library dependent; Most
  *			return the time in seconds, but beware of some, like
  *			Aztec C, which return other units.
  *			The LOOPS define is initially set for 50000 loops.
  *			If you have a machine with large integers and is
  *			very fast, please change this number to 500000 to
  *			get better accuracy.  Please select the way to
  *			measure the execution time using the TIME define.
  *			For single user machines, time(2) is adequate. For
  *			multi-user machines where you cannot get single-user
  *			access, use the times(2) function.  If you have
  *			neither, use a stopwatch in the dead of night.
  *			Use a "printf" at the point marked "start timer"
  *			to begin your timings. DO NOT use the UNIX "time(1)"
  *			command, as this will measure the total time to
  *			run this program, which will (erroneously) include
  *			the time to malloc(3) storage and to compute the
  *			time it takes to do nothing.
  *
  *	Run:		drynr; dryr
  *
  *	Results:	If you get any new machine/OS results, please send to:
  *
  *				ihnp4!castor!pcrat!rick
  *
  *			and thanks to all that do.
  *
  *	Note:		I order the list in increasing performance of the
  *			"with registers" benchmark.  If the compiler doesn't
  *			provide register variables, then the benchmark
  *			is the same for both REG and NOREG.
  *
  *	PLEASE:		Send complete information about the machine type,
  *			clock speed, OS and C manufacturer/version.  If
  *			the machine is modified, tell me what was done.
  *			On UNIX, execute uname -a and cc -V to get this info.
  *
  *	80x8x NOTE:	80x8x benchers: please try to do all memory models
  *			for a particular compiler.
  *
  *
  *	The following program contains statements of a high-level programming
  *	language (C) in a distribution considered representative:
  *
  *	assignments			53%
  *	control statements		32%
  *	procedure, function calls	15%
  *
  *	100 statements are dynamically executed.  The program is balanced with
  *	respect to the three aspects:
  *		- statement type
  *		- operand type (for simple data types)
  *		- operand access
  *			operand global, local, parameter, or constant.
  *
  *	The combination of these three aspects is balanced only approximately.
  *
  *	The program does not compute anything meaningfull, but it is
  *	syntactically and semantically correct.
  *
  */

 /* #define the type of float we will use:	*/
 #ifndef extended
 #define extended double
 #endif

 /* Define if should use homemade str* functions. */

 /*#define MYSTRFNS*/

 /* Accuracy of timings and human fatigue controlled by next two lines */
 #ifdef SMALL_PROBLEM_SIZE
 #define LOOPS	2000000
 #else
 #define LOOPS	100000000
 #endif

 /* Compiler dependent options */
 #undef	NOENUM			/* Define if compiler has no enum's */
 #undef	NOSTRUCTASSIGN		/* Define if compiler can't assign structures */

 /* define only one of the next three defines */
 #define CLOCK
 /*#define TIMES			/* Use times(2) time function */
 /*#define TIME			/* Use time(2) time function */

 /* define the granularity of your times(2) function (when used) */
 /*#define HZ	50		/* times(2) returns 1/50 second (europe?) */
 #define HZ	60		/* times(2) returns 1/60 second (most) */
 /*#define HZ	100		/* times(2) returns 1/100 second (WECo) */

 /* for compatibility with goofed up version */
 /*#undef GOOF			/* Define if you want the goofed up version */

 #ifdef GOOF
 char	Version[] = "1.0";
 #else
 char	Version[] = "1.1";
 #endif

 #ifdef	NOSTRUCTASSIGN
 #define	structassign(d, s)	memcpy(&(d), &(s), sizeof(d))
 #else
 #define	structassign(d, s)	d = s
 #endif

 #ifdef	NOENUM
 #define	Ident1	1
 #define	Ident2	2
 #define	Ident3	3
 #define	Ident4	4
 #define	Ident5	5
 typedef extended	Enumeration;
 #else
 typedef enum	{Ident1, Ident2 = 10000, Ident3, Ident4, Ident5} Enumeration;
 #endif

 typedef extended	OneToThirty;
 typedef extended	OneToFifty;
 typedef char	CapitalLetter;
 typedef char	String30[31];
 typedef extended	Array1Dim[51];
 typedef extended	Array2Dim[51][51];

 struct	Record
 {
 	struct Record		*PtrComp;
 	Enumeration		Discr;
 	Enumeration		EnumComp;
 	OneToFifty		IntComp;
 	String30		StringComp;
 };

 typedef struct Record 	RecordType;
 typedef RecordType *	RecordPtr;
 typedef int		boolean;

 #define	NULL		0
 #define	TRUE		1
 #define	FALSE		0

 #ifndef REG
 #define	REG
 #endif

 extern Enumeration	Func1();
 extern boolean		Func2();

 #ifdef TIMES
 #include <sys/types.h>
 #include <sys/times.h>
 #endif
 #include <string.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <time.h>

 int Proc0();
 int Proc1();
 int Proc2();
 int Proc3();
 int Proc4();
 int Proc5();
 int Proc6();
 int Proc7();
 int Proc8();

 int main( argc, argv)
 int argc;
 char **argv;
 {
   printf("calculate floating dhrystones using doubles size %d\n",
          sizeof(extended));
 	//fflush( stdout);
 	Proc0();
         return 0;
 }

 /*
  * Package 1
  */
 extended		IntGlob;
 boolean		BoolGlob;
 char		Char1Glob;
 char		Char2Glob;
 Array1Dim	Array1Glob;
 Array2Dim	Array2Glob;
 RecordPtr	PtrGlb;
 RecordPtr	PtrGlbNext;

 Proc0()
 {
 	OneToFifty		IntLoc1;
 	REG OneToFifty		IntLoc2;
 	OneToFifty		IntLoc3;
 	REG char		CharLoc;
 	REG char		CharIndex;
 	Enumeration	 	EnumLoc;
 	String30		String1Loc;
 	String30		String2Loc;
 	register unsigned int	i;

 #ifdef CLOCK
 	long			starttime;
 	long			benchtime;
 	long			nulltime;

 	starttime = clock();
 	for (i = 0; i < LOOPS; ++i);
 	nulltime = clock() - starttime; /* Computes overhead of looping */
 #endif
 #ifdef TIME
 	long			time();
 	long			starttime;
 	long			benchtime;
 	long			nulltime;

 	starttime = time( (long *) 0);
 	for (i = 0; i < LOOPS; ++i);
 	nulltime = time( (long *) 0) - starttime; /* Computes o'head of loop */
 #endif
 #ifdef TIMES
 	time_t			starttime;
 	time_t			benchtime;
 	time_t			nulltime;
 	struct tms		tms;

 	times(&tms); starttime = tms.tms_utime;
 	for (i = 0; i < LOOPS; ++i);
 	times(&tms);
 	nulltime = tms.tms_utime - starttime; /* Computes overhead of looping */
 #endif

 	PtrGlbNext = (RecordPtr) malloc(sizeof(RecordType));
 	PtrGlb = (RecordPtr) malloc(sizeof(RecordType));
 	PtrGlb->PtrComp = PtrGlbNext;
 	PtrGlb->Discr = Ident1;
 	PtrGlb->EnumComp = Ident3;
 	PtrGlb->IntComp = 40.0;
 	strcpy(PtrGlb->StringComp, "DHRYSTONE PROGRAM, SOME STRING");
 #ifndef	GOOF
 	strcpy(String1Loc, "DHRYSTONE PROGRAM, 1'ST STRING");	/*GOOF*/
 #endif
 	Array2Glob[8][7] = 10.0;	/* Was missing in published program */

 /*****************
 -- Start Timer --
 *****************/
 #ifdef CLOCK
 	starttime = clock();
 #endif
 #ifdef TIME
 	starttime = time( (long *) 0);
 #endif
 #ifdef TIMES
 	times(&tms); starttime = tms.tms_utime;
 #endif
 	for (i = 0; i < LOOPS; ++i)
 	{
 		Proc5();
 		Proc4();
 		IntLoc1 = 2.0;
 		IntLoc2 = 3.0;
 		strcpy(String2Loc, "DHRYSTONE PROGRAM, 2'ND STRING");
 		EnumLoc = Ident2;
 		BoolGlob = ! Func2(String1Loc, String2Loc);
 		while (IntLoc1 < IntLoc2)
 		{
 			IntLoc3 = 5.0 * IntLoc1 - IntLoc2;
 			Proc7(IntLoc1, IntLoc2, &IntLoc3);
 			++IntLoc1;
 		}
 		Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3);
 		Proc1(PtrGlb);
 		for (CharIndex = 'A'; CharIndex <= Char2Glob; ++CharIndex)
 			if (EnumLoc == Func1(CharIndex, 'C'))
 				Proc6(Ident1, &EnumLoc);
 		IntLoc3 = IntLoc2 * IntLoc1;
 		IntLoc2 = IntLoc3 / IntLoc1;
 		IntLoc2 = 7.0 * (IntLoc3 - IntLoc2) - IntLoc1;
 		Proc2(&IntLoc1);
 	}

 /*****************
 -- Stop Timer --
 *****************/

 #if 0
 #ifdef CLOCK
 	benchtime = ( clock() - starttime - nulltime )/ CLK_TCK;
 	printf("Dhrystone(%s) time for %ld passes = %ld\n",
 		Version,
 		(long) LOOPS, benchtime);
 	printf("This machine benchmarks at %ld floating dhrystones/second\n",
 		(long) LOOPS / benchtime
 	);
 #endif
 #ifdef TIME
 	benchtime = time( (long *) 0) - starttime - nulltime;
 	printf("Dhrystone(%s) time for %ld passes = %ld\n",
 		Version,
 		(long) LOOPS, benchtime);
         printf("This machine benchmarks at %ld floating dhrystones/second\n",
                ((long) LOOPS) / benchtime);
 #endif
 #ifdef TIMES
 	times(&tms);
 	benchtime = tms.tms_utime - starttime - nulltime;
 	printf("Dhrystone(%s) time for %ld passes = %ld\n",
 		Version,
 		(long) LOOPS, benchtime/HZ);
 	printf("This machine benchmarks at %ld floating dhrystones/second\n",
 		((long) LOOPS) * HZ / benchtime);
 #endif
 #endif
 }

 Proc1(PtrParIn)
 REG RecordPtr	PtrParIn;
 {
 #define	NextRecord	(*(PtrParIn->PtrComp))

 /*	structassign(NextRecord, *PtrGlb); */
 	PtrParIn->IntComp = 5.0;
 	NextRecord.IntComp = PtrParIn->IntComp;
 	NextRecord.PtrComp = PtrParIn->PtrComp;
 /*	Proc3(NextRecord.PtrComp);  */
 /*	if (NextRecord.Discr == Ident1)
 	{
 		NextRecord.IntComp = 6.0;
 		Proc6(PtrParIn->EnumComp, &NextRecord.EnumComp);
 		NextRecord.PtrComp = PtrGlb->PtrComp;
 		Proc7(NextRecord.IntComp, 10.0, &NextRecord.IntComp);
 	}
 	else
 		structassign(*PtrParIn, NextRecord);
 */

 #undef	NextRecord
 }

 Proc2(IntParIO)
 OneToFifty	*IntParIO;
 {
 	REG OneToFifty		IntLoc;
 	REG Enumeration		EnumLoc;

 	IntLoc = *IntParIO + 10.0;
 	for(;;)
 	{
 		if (Char1Glob == 'A')
 		{
 			--IntLoc;
 			*IntParIO = IntLoc - IntGlob;
 			EnumLoc = Ident1;
 		}
 		if (EnumLoc == Ident1)
 			break;
 	}
 }

 Proc3(PtrParOut)
 RecordPtr	*PtrParOut;
 {
 	if (PtrGlb != NULL)
 		*PtrParOut = PtrGlb->PtrComp;
 	else
 		IntGlob = 100.0;
 	Proc7(10, IntGlob, &PtrGlb->IntComp);
 }

 Proc4()
 {
 	REG boolean	BoolLoc;

 	BoolLoc = Char1Glob == 'A';
 	BoolLoc |= BoolGlob;
 	Char2Glob = 'B';
 }

 Proc5()
 {
 	Char1Glob = 'A';
 	BoolGlob = FALSE;
 }

 extern boolean Func3();

 Proc6(EnumParIn, EnumParOut)
 REG Enumeration	EnumParIn;
 REG Enumeration	*EnumParOut;
 {
 	*EnumParOut = EnumParIn;
 	if (! Func3(EnumParIn) )
 		*EnumParOut = Ident4;
 	switch (EnumParIn)
 	{
 	case Ident1:	*EnumParOut = Ident1; break;
 	case Ident2:	if (IntGlob > 100) *EnumParOut = Ident1;
 			else *EnumParOut = Ident4;
 			break;
 	case Ident3:	*EnumParOut = Ident2; break;
 	case Ident4:	break;
 	case Ident5:	*EnumParOut = Ident3;
 	}
 }

 Proc7(IntParI1, IntParI2, IntParOut)
 OneToFifty	IntParI1;
 OneToFifty	IntParI2;
 OneToFifty	*IntParOut;
 {
 	REG OneToFifty	IntLoc;

 	IntLoc = IntParI1 + 2.0;
 	*IntParOut = IntParI2 + IntLoc;
 }

 Proc8(Array1Par, Array2Par, IntParI1, IntParI2)
 Array1Dim	Array1Par;
 Array2Dim	Array2Par;
 OneToFifty	IntParI1;
 OneToFifty	IntParI2;
 {
 	REG OneToFifty	IntLoc;
 	REG OneToFifty	IntIndex;

 	IntLoc = IntParI1 + 5.0;
 	Array1Par[(int)IntLoc] = IntParI2;
 	Array1Par[(int)IntLoc+1] = Array1Par[(int)IntLoc];
 	Array1Par[(int)IntLoc+30] = IntLoc;
 	for (IntIndex = IntLoc; IntIndex <= (IntLoc+1); ++IntIndex)
 		Array2Par[(int)IntLoc][(int)IntIndex] = IntLoc;
 	++Array2Par[(int)IntLoc][(int)IntLoc-1];
 	Array2Par[(int)IntLoc+20][(int)IntLoc] = Array1Par[(int)IntLoc];
 	IntGlob = 5.0;
 }

 Enumeration Func1(CharPar1, CharPar2)
 CapitalLetter	CharPar1;
 CapitalLetter	CharPar2;
 {
 	REG CapitalLetter	CharLoc1;
 	REG CapitalLetter	CharLoc2;

 	CharLoc1 = CharPar1;
 	CharLoc2 = CharLoc1;
 	if (CharLoc2 != CharPar2)
 		return (Ident1);
 	else
 		return (Ident2);
 }

 boolean Func2(StrParI1, StrParI2)
 String30	StrParI1;
 String30	StrParI2;
 {
 	REG OneToThirty		IntLoc;
 	REG CapitalLetter	CharLoc;

 	IntLoc = 1;
 	while (IntLoc <= 1)
 		if (Func1(StrParI1[(int)IntLoc], StrParI2[(int)IntLoc+1]) == Ident1)
 		{
 			CharLoc = 'A';
 			++IntLoc;
 		}
 	if (CharLoc >= 'W' && CharLoc <= 'Z')
 		IntLoc = 7;
 	if (CharLoc == 'X')
 		return(TRUE);
 	else
 	{
 		if (strcmp(StrParI1, StrParI2) > 0)
 		{
 			IntLoc += 7.0;
 			return (TRUE);
 		}
 		else
 			return (FALSE);
 	}
 }

 boolean Func3(EnumParIn)
 REG Enumeration	EnumParIn;
 {
 	REG Enumeration	EnumLoc;

 	EnumLoc = EnumParIn;
 	if (EnumLoc == Ident3) return (TRUE);
 	return (FALSE);
 }

 #ifdef	NOSTRUCTASSIGN
 memcpy(d, s, l)
 register char	*d;
 register char	*s;
 register int	l;
 {
 	while (l--) *d++ = *s++;
 }
 #endif

 #ifdef MYSTRFNS

 char *strcpy(s1, s2)
 char *s1, *s2;
 {
     while (*s1++ = *s2++);
     return s1;
 }

 char *strcat(s1, s2)
 char *s1, *s2;
 {
     while (*s1++);
     s1--;
     while (*s1++ = *s2++);
     return s1;
 }

 strcmp(s1, s2)
 char *s1, *s2;
 {
     while (*s1++ == *s2++);
     if (*s1 == 0) {
 	if (*s2 == 0) {
 	    return 0;
 	} else {
 	    return -1;
 	}
     } else {
 	if (*s2 == 0) {
 	    return 1;
 	} else {
 	    return (*(--s1) - *(--s2));
 	}
     }
 }

 #endif
	/*
	*
	* "DHRYSTONE" Benchmark Program
	*
	* Version: C/1.1, 12/01/84
	*
	* Date: PROGRAM updated 01/06/86, COMMENTS changed 01/31/87
	*
	* Author: Reinhold P. Weicker, CACM Vol 27, No 10, 10/84 pg. 1013
	* Translated from ADA by Rick Richardson
	* Every method to preserve ADA-likeness has been used,
	* at the expense of C-ness.
	*
	* Compile: cc -O dry.c -o drynr : No registers
	* cc -O -DREG=register dry.c -o dryr : Registers
	*
	* Defines: Defines are provided for old C compiler's
	* which don't have enums, and can't assign structures.
	* The time(2) function is library dependent; Most
	* return the time in seconds, but beware of some, like
	* Aztec C, which return other units.
	* The LOOPS define is initially set for 50000 loops.
	* If you have a machine with large integers and is
	* very fast, please change this number to 500000 to
	* get better accuracy. Please select the way to
	* measure the execution time using the TIME define.
	* For single user machines, time(2) is adequate. For
	* multi-user machines where you cannot get single-user
	* access, use the times(2) function. If you have
	* neither, use a stopwatch in the dead of night.
	* Use a "printf" at the point marked "start timer"
	* to begin your timings. DO NOT use the UNIX "time(1)"
	* command, as this will measure the total time to
	* run this program, which will (erroneously) include
	* the time to malloc(3) storage and to compute the
	* time it takes to do nothing.
	*
	* Run: drynr; dryr
	*
	* Results: If you get any new machine/OS results, please send to:
	*
	* ihnp4!castor!pcrat!rick
	*
	* and thanks to all that do.
	*
	* Note: I order the list in increasing performance of the
	* "with registers" benchmark. If the compiler doesn't
	* provide register variables, then the benchmark
	* is the same for both REG and NOREG.
	*
	* PLEASE: Send complete information about the machine type,
	* clock speed, OS and C manufacturer/version. If
	* the machine is modified, tell me what was done.
	* On UNIX, execute uname -a and cc -V to get this info.
	*
	* 80x8x NOTE: 80x8x benchers: please try to do all memory models
	* for a particular compiler.
	*
	*
	* The following program contains statements of a high-level programming
	* language (C) in a distribution considered representative:
	*
	* assignments 53%
	* control statements 32%
	* procedure, function calls 15%
	*
	* 100 statements are dynamically executed. The program is balanced with
	* respect to the three aspects:
	* - statement type
	* - operand type (for simple data types)
	* - operand access
	* operand global, local, parameter, or constant.
	*
	* The combination of these three aspects is balanced only approximately.
	*
	* The program does not compute anything meaningfull, but it is
	* syntactically and semantically correct.
	*
	*/

	/* #define the type of float we will use: */
	#ifndef extended
	#define extended double
	#endif

	/* Define if should use homemade str* functions. */

	/#define MYSTRFNS/

	/* Accuracy of timings and human fatigue controlled by next two lines */
	#ifdef SMALL_PROBLEM_SIZE
	#define LOOPS 2000000
	#else
	#define LOOPS 100000000
	#endif

	/* Compiler dependent options */
	#undef NOENUM /* Define if compiler has no enum's */
	#undef NOSTRUCTASSIGN /* Define if compiler can't assign structures */

	/* define only one of the next three defines */
	#define CLOCK
	/#define TIMES / Use times(2) time function */
	/#define TIME / Use time(2) time function */

	/* define the granularity of your times(2) function (when used) */
	/#define HZ 50 / times(2) returns 1/50 second (europe?) */
	#define HZ 60 /* times(2) returns 1/60 second (most) */
	/#define HZ 100 / times(2) returns 1/100 second (WECo) */

	/* for compatibility with goofed up version */
	/#undef GOOF / Define if you want the goofed up version */

	#ifdef GOOF
	char Version[] = "1.0";
	#else
	char Version[] = "1.1";
	#endif

	#ifdef NOSTRUCTASSIGN
	#define structassign(d, s) memcpy(&(d), &(s), sizeof(d))
	#else
	#define structassign(d, s) d = s
	#endif

	#ifdef NOENUM
	#define Ident1 1
	#define Ident2 2
	#define Ident3 3
	#define Ident4 4
	#define Ident5 5
	typedef extended Enumeration;
	#else
	typedef enum {Ident1, Ident2 = 10000, Ident3, Ident4, Ident5} Enumeration;
	#endif

	typedef extended OneToThirty;
	typedef extended OneToFifty;
	typedef char CapitalLetter;
	typedef char String30[31];
	typedef extended Array1Dim[51];
	typedef extended Array2Dim[51][51];

	struct Record
	{
	struct Record *PtrComp;
	Enumeration Discr;
	Enumeration EnumComp;
	OneToFifty IntComp;
	String30 StringComp;
	};

	typedef struct Record RecordType;
	typedef RecordType * RecordPtr;
	typedef int boolean;

	#define NULL 0
	#define TRUE 1
	#define FALSE 0

	#ifndef REG
	#define REG
	#endif

	extern Enumeration Func1();
	extern boolean Func2();

	#ifdef TIMES
	#include <sys/types.h>
	#include <sys/times.h>
	#endif
	#include <string.h>
	#include <stdio.h>
	#include <stdlib.h>
	#include <time.h>

	int Proc0();
	int Proc1();
	int Proc2();
	int Proc3();
	int Proc4();
	int Proc5();
	int Proc6();
	int Proc7();
	int Proc8();

	int main( argc, argv)
	int argc;
	char **argv;
	{
	printf("calculate floating dhrystones using doubles size %d\n",
	sizeof(extended));
	//fflush( stdout);
	Proc0();
	return 0;
	}

	/*
	* Package 1
	*/
	extended IntGlob;
	boolean BoolGlob;
	char Char1Glob;
	char Char2Glob;
	Array1Dim Array1Glob;
	Array2Dim Array2Glob;
	RecordPtr PtrGlb;
	RecordPtr PtrGlbNext;

	Proc0()
	{
	OneToFifty IntLoc1;
	REG OneToFifty IntLoc2;
	OneToFifty IntLoc3;
	REG char CharLoc;
	REG char CharIndex;
	Enumeration EnumLoc;
	String30 String1Loc;
	String30 String2Loc;
	register unsigned int i;

	#ifdef CLOCK
	long starttime;
	long benchtime;
	long nulltime;

	starttime = clock();
	for (i = 0; i < LOOPS; ++i);
	nulltime = clock() - starttime; /* Computes overhead of looping */
	#endif
	#ifdef TIME
	long time();
	long starttime;
	long benchtime;
	long nulltime;

	starttime = time( (long *) 0);
	for (i = 0; i < LOOPS; ++i);
	nulltime = time( (long ) 0) - starttime; / Computes o'head of loop */
	#endif
	#ifdef TIMES
	time_t starttime;
	time_t benchtime;
	time_t nulltime;
	struct tms tms;

	times(&tms); starttime = tms.tms_utime;
	for (i = 0; i < LOOPS; ++i);
	times(&tms);
	nulltime = tms.tms_utime - starttime; /* Computes overhead of looping */
	#endif

	PtrGlbNext = (RecordPtr) malloc(sizeof(RecordType));
	PtrGlb = (RecordPtr) malloc(sizeof(RecordType));
	PtrGlb->PtrComp = PtrGlbNext;
	PtrGlb->Discr = Ident1;
	PtrGlb->EnumComp = Ident3;
	PtrGlb->IntComp = 40.0;
	strcpy(PtrGlb->StringComp, "DHRYSTONE PROGRAM, SOME STRING");
	#ifndef GOOF
	strcpy(String1Loc, "DHRYSTONE PROGRAM, 1'ST STRING"); /GOOF/
	#endif
	Array2Glob[8][7] = 10.0; /* Was missing in published program */

	/*****************
	-- Start Timer --
	*****************/
	#ifdef CLOCK
	starttime = clock();
	#endif
	#ifdef TIME
	starttime = time( (long *) 0);
	#endif
	#ifdef TIMES
	times(&tms); starttime = tms.tms_utime;
	#endif
	for (i = 0; i < LOOPS; ++i)
	{
	Proc5();
	Proc4();
	IntLoc1 = 2.0;
	IntLoc2 = 3.0;
	strcpy(String2Loc, "DHRYSTONE PROGRAM, 2'ND STRING");
	EnumLoc = Ident2;
	BoolGlob = ! Func2(String1Loc, String2Loc);
	while (IntLoc1 < IntLoc2)
	{
	IntLoc3 = 5.0 * IntLoc1 - IntLoc2;
	Proc7(IntLoc1, IntLoc2, &IntLoc3);
	++IntLoc1;
	}
	Proc8(Array1Glob, Array2Glob, IntLoc1, IntLoc3);
	Proc1(PtrGlb);
	for (CharIndex = 'A'; CharIndex <= Char2Glob; ++CharIndex)
	if (EnumLoc == Func1(CharIndex, 'C'))
	Proc6(Ident1, &EnumLoc);
	IntLoc3 = IntLoc2 * IntLoc1;
	IntLoc2 = IntLoc3 / IntLoc1;
	IntLoc2 = 7.0 * (IntLoc3 - IntLoc2) - IntLoc1;
	Proc2(&IntLoc1);
	}

	/*****************
	-- Stop Timer --
	*****************/

	#if 0
	#ifdef CLOCK
	benchtime = ( clock() - starttime - nulltime )/ CLK_TCK;
	printf("Dhrystone(%s) time for %ld passes = %ld\n",
	Version,
	(long) LOOPS, benchtime);
	printf("This machine benchmarks at %ld floating dhrystones/second\n",
	(long) LOOPS / benchtime
	);
	#endif
	#ifdef TIME
	benchtime = time( (long *) 0) - starttime - nulltime;
	printf("Dhrystone(%s) time for %ld passes = %ld\n",
	Version,
	(long) LOOPS, benchtime);
	printf("This machine benchmarks at %ld floating dhrystones/second\n",
	((long) LOOPS) / benchtime);
	#endif
	#ifdef TIMES
	times(&tms);
	benchtime = tms.tms_utime - starttime - nulltime;
	printf("Dhrystone(%s) time for %ld passes = %ld\n",
	Version,
	(long) LOOPS, benchtime/HZ);
	printf("This machine benchmarks at %ld floating dhrystones/second\n",
	((long) LOOPS) * HZ / benchtime);
	#endif
	#endif
	}

	Proc1(PtrParIn)
	REG RecordPtr PtrParIn;
	{
	#define NextRecord (*(PtrParIn->PtrComp))

	/* structassign(NextRecord, PtrGlb); /
	PtrParIn->IntComp = 5.0;
	NextRecord.IntComp = PtrParIn->IntComp;
	NextRecord.PtrComp = PtrParIn->PtrComp;
	/* Proc3(NextRecord.PtrComp); */
	/* if (NextRecord.Discr == Ident1)
	{
	NextRecord.IntComp = 6.0;
	Proc6(PtrParIn->EnumComp, &NextRecord.EnumComp);
	NextRecord.PtrComp = PtrGlb->PtrComp;
	Proc7(NextRecord.IntComp, 10.0, &NextRecord.IntComp);
	}
	else
	structassign(*PtrParIn, NextRecord);
	*/

	#undef NextRecord
	}

	Proc2(IntParIO)
	OneToFifty *IntParIO;
	{
	REG OneToFifty IntLoc;
	REG Enumeration EnumLoc;

	IntLoc = *IntParIO + 10.0;
	for(;;)
	{
	if (Char1Glob == 'A')
	{
	--IntLoc;
	*IntParIO = IntLoc - IntGlob;
	EnumLoc = Ident1;
	}
	if (EnumLoc == Ident1)
	break;
	}
	}

	Proc3(PtrParOut)
	RecordPtr *PtrParOut;
	{
	if (PtrGlb != NULL)
	*PtrParOut = PtrGlb->PtrComp;
	else
	IntGlob = 100.0;
	Proc7(10, IntGlob, &PtrGlb->IntComp);
	}

	Proc4()
	{
	REG boolean BoolLoc;

	BoolLoc = Char1Glob == 'A';
	BoolLoc \|= BoolGlob;
	Char2Glob = 'B';
	}

	Proc5()
	{
	Char1Glob = 'A';
	BoolGlob = FALSE;
	}

	extern boolean Func3();

	Proc6(EnumParIn, EnumParOut)
	REG Enumeration EnumParIn;
	REG Enumeration *EnumParOut;
	{
	*EnumParOut = EnumParIn;
	if (! Func3(EnumParIn) )
	*EnumParOut = Ident4;
	switch (EnumParIn)
	{
	case Ident1: *EnumParOut = Ident1; break;
	case Ident2: if (IntGlob > 100) *EnumParOut = Ident1;
	else *EnumParOut = Ident4;
	break;
	case Ident3: *EnumParOut = Ident2; break;
	case Ident4: break;
	case Ident5: *EnumParOut = Ident3;
	}
	}

	Proc7(IntParI1, IntParI2, IntParOut)
	OneToFifty IntParI1;
	OneToFifty IntParI2;
	OneToFifty *IntParOut;
	{
	REG OneToFifty IntLoc;

	IntLoc = IntParI1 + 2.0;
	*IntParOut = IntParI2 + IntLoc;
	}

	Proc8(Array1Par, Array2Par, IntParI1, IntParI2)
	Array1Dim Array1Par;
	Array2Dim Array2Par;
	OneToFifty IntParI1;
	OneToFifty IntParI2;
	{
	REG OneToFifty IntLoc;
	REG OneToFifty IntIndex;

	IntLoc = IntParI1 + 5.0;
	Array1Par[(int)IntLoc] = IntParI2;
	Array1Par[(int)IntLoc+1] = Array1Par[(int)IntLoc];
	Array1Par[(int)IntLoc+30] = IntLoc;
	for (IntIndex = IntLoc; IntIndex <= (IntLoc+1); ++IntIndex)
	Array2Par[(int)IntLoc][(int)IntIndex] = IntLoc;
	++Array2Par[(int)IntLoc][(int)IntLoc-1];
	Array2Par[(int)IntLoc+20][(int)IntLoc] = Array1Par[(int)IntLoc];
	IntGlob = 5.0;
	}

	Enumeration Func1(CharPar1, CharPar2)
	CapitalLetter CharPar1;
	CapitalLetter CharPar2;
	{
	REG CapitalLetter CharLoc1;
	REG CapitalLetter CharLoc2;

	CharLoc1 = CharPar1;
	CharLoc2 = CharLoc1;
	if (CharLoc2 != CharPar2)
	return (Ident1);
	else
	return (Ident2);
	}

	boolean Func2(StrParI1, StrParI2)
	String30 StrParI1;
	String30 StrParI2;
	{
	REG OneToThirty IntLoc;
	REG CapitalLetter CharLoc;

	IntLoc = 1;
	while (IntLoc <= 1)
	if (Func1(StrParI1[(int)IntLoc], StrParI2[(int)IntLoc+1]) == Ident1)
	{
	CharLoc = 'A';
	++IntLoc;
	}
	if (CharLoc >= 'W' && CharLoc <= 'Z')
	IntLoc = 7;
	if (CharLoc == 'X')
	return(TRUE);
	else
	{
	if (strcmp(StrParI1, StrParI2) > 0)
	{
	IntLoc += 7.0;
	return (TRUE);
	}
	else
	return (FALSE);
	}
	}

	boolean Func3(EnumParIn)
	REG Enumeration EnumParIn;
	{
	REG Enumeration EnumLoc;

	EnumLoc = EnumParIn;
	if (EnumLoc == Ident3) return (TRUE);
	return (FALSE);
	}

	#ifdef NOSTRUCTASSIGN
	memcpy(d, s, l)
	register char *d;
	register char *s;
	register int l;
	{
	while (l--) d++ = s++;
	}
	#endif

	#ifdef MYSTRFNS

	char *strcpy(s1, s2)
	char s1, s2;
	{
	while (s1++ = s2++);
	return s1;
	}

	char *strcat(s1, s2)
	char s1, s2;
	{
	while (*s1++);
	s1--;
	while (s1++ = s2++);
	return s1;
	}

	strcmp(s1, s2)
	char s1, s2;
	{
	while (s1++ == s2++);
	if (*s1 == 0) {
	if (*s2 == 0) {
	return 0;
	} else {
	return -1;
	}
	} else {
	if (*s2 == 0) {
	return 1;
	} else {
	return ((--s1) - (--s2));
	}
	}
	}

	#endif