re PR c/31924 (gcc accepts invalid suffixes for decimal float constants)

libcpp/
        PR c/31924
        * expr.c (interpret_float_suffix): Check for invalid suffix.
gcc/testsuite/
        PR c/31924
        * gcc.dg/fltconst-1.c: New test.

From-SVN: r124730

gcc/testsuite/ChangeLog

 2007-05-14  Janis Johnson  <janis187@us.ibm.com>
 
+	PR c/31924
+	* gcc.dg/fltconst-1.c: New test.
+
 	* gcc.dg/dfp/func-mixed.c: Replace invalid constant suffixes.
 	* gcc.dg/dfp/operator-assignment.c: Ditto.
 

gcc/testsuite/gcc.dg/fltconst-1.c

+/* { dg-do compile } */
+/* { dg-options "-std=gnu99" } */
+
+double a = 1.ld;	/* { dg-error "invalid suffix" } */
+double b = 1.fd;	/* { dg-error "invalid suffix" } */
+double c = 1.di;	/* { dg-error "invalid suffix" } */
+double d = 1.dj;	/* { dg-error "invalid suffix" } */
+double e = 1.id;	/* { dg-error "invalid suffix" } */
+double f = 1.jd;	/* { dg-error "invalid suffix" } */
+double g = 1.ddd;	/* { dg-error "invalid suffix" } */
+double h = 1.ldd;	/* { dg-error "invalid suffix" } */
+double i = 1.dld;	/* { dg-error "invalid suffix" } */
+double j = 1.ddl;	/* { dg-error "invalid suffix" } */
+double k = 1.fdd;	/* { dg-error "invalid suffix" } */
+double l = 1.dfd;	/* { dg-error "invalid suffix" } */
+double m = 1.ddf;	/* { dg-error "invalid suffix" } */

libcpp/ChangeLog

+2007-05-14  Janis Johnson  <janis187@us.ibm.com>
+
+	PR c/31924
+	* expr.c (interpret_float_suffix): Check for invalid suffix.
+
 2007-05-02  Eric Christopher  <echristo@apple.com>
 
 	* expr.c (num_div_op): Don't overflow if the result is

libcpp/expr.c

@@ -87,16 +87,19 @@ interpret_float_suffix (const uchar *s, size_t len)
   while (len--)
     switch (s[len])
       {
-      case 'f': case 'F': f++; break;
-      case 'l': case 'L': l++; break;
-      case 'i': case 'I':
-      case 'j': case 'J': i++; break;
-      case 'd': case 'D':
-	/* Disallow fd, ld suffixes.  */
-	if (d && (f || l))
+      case 'f': case 'F':
+	if (d > 0)
+	  return 0;
+	f++;
+	break;
+      case 'l': case 'L':
+	if (d > 0)
 	  return 0;
-	d++;
+	l++;
 	break;
+      case 'i': case 'I':
+      case 'j': case 'J': i++; break;
+      case 'd': case 'D': d++; break;
       default:
 	return 0;
       }