* gcc.c-torture/execute/ieee/980619-1.c: New test.

From-SVN: r20572

gcc/testsuite/ChangeLog

+Fri Jun 19 02:05:14 1998  Jeffrey A Law  (law@cygnus.com)
+
+	* gcc.c-torture/execute/ieee/980619-1.c: New test.
+
 Fri Jun 19 00:58:11 1998  Robert Lipe  <robertl@dgii.com>
 
 	*lib/g77.exp: Replace search for libf2c.a with search for newly

gcc/testsuite/gcc.c-torture/execute/ieee/980619-1.c

+	int main(void)
+	{
+		float reale = 1.0f;
+		float oneplus;
+		int i;
+	
+	 	if (sizeof (float) != 4)
+		  exit (0);
+
+		for (i = 0; ; i++)
+		{
+			oneplus = 1.0f + reale;
+			if (oneplus == 1.0f)
+				break;
+			reale=reale/2.0f;
+		}
+		/* Assumes ieee754 accurate arithmetic above.  */
+		if (i != 24)
+		  abort ();
+		else
+		  exit (0);
+	}
+