In gcc/:

	* c-typeck.c (build_array_ref): Don't complain about non-lvalue
	arrays in C99.  Don't try to look at DECL_REGISTER of a
	COMPONENT_REF.  Don't complain twice about the same error.

In gcc/testsuite/:
	* gcc.dg/c99-array-lval-1.c: The test on line 14 now passes.

From-SVN: r35666

gcc/ChangeLog

 2000-08-13  Geoff Keating  <geoffk@cygnus.com>
 
+	* c-typeck.c (build_array_ref): Don't complain about non-lvalue
+	arrays in C99.  Don't try to look at DECL_REGISTER of a
+	COMPONENT_REF.  Don't complain twice about the same error.
+
 	* fixinc/inclhack.def (aix_pthread): New fix.
 	(aix_sysmachine): New fix.
 	* fixinc/fixincl.x: Regenerate.

gcc/c-typeck.c

@@ -1315,20 +1315,14 @@ build_array_ref (array, index)
 	    return error_mark_node;
 	}
 
-      if (pedantic && !lvalue_p (array))
-	{
-	  if (DECL_REGISTER (array))
-	    pedwarn ("ISO C forbids subscripting `register' array");
-	  else
-	    pedwarn ("ISO C89 forbids subscripting non-lvalue array");
-	}
-
       if (pedantic)
 	{
 	  tree foo = array;
 	  while (TREE_CODE (foo) == COMPONENT_REF)
 	    foo = TREE_OPERAND (foo, 0);
 	  if (TREE_CODE (foo) == VAR_DECL && DECL_REGISTER (foo))
+	    pedwarn ("ISO C forbids subscripting `register' array");
+	  else if (! flag_isoc99 && ! lvalue_p (foo))
 	    pedwarn ("ISO C89 forbids subscripting non-lvalue array");
 	}
 

gcc/testsuite/ChangeLog

+2000-08-13  Geoff Keating  <geoffk@cygnus.com>
+
+	* gcc.dg/c99-array-lval-1.c: The test on line 14 now passes.
+
 2000-08-11  Nathan Sidwell  <nathan@codesourcery.com>
 
 	* g++.old-deja/g++.pt/explicit81.C: New test.

gcc/testsuite/gcc.dg/c99-array-lval-1.c

@@ -11,7 +11,7 @@ void
 bar (void)
 {
   char *t;
-  (foo ()).c[0]; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" { xfail *-*-* } } */
+  (foo ()).c[0]; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" } */
   t = (foo ()).c; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" { xfail *-*-* } } */
   (foo ()).c + 1; /* { dg-bogus "non-lvalue" "array not decaying to lvalue" { xfail *-*-* } } */
 }