Fix PR/7621

        Fix PR/7621
        * typeck.c (finish_class_member_access_expr): Diagnose cases where
        name lookup finds nothing.

From-SVN: r56409

gcc/cp/ChangeLog

+2002-08-17  Gabriel Dos Reis  <gdr@integrable-solutions.net>
+
+	Fix PR/7621
+	* typeck.c (finish_class_member_access_expr): Diagnose cases where
+	name lookup finds nothing.
+
 2002-08-15  Jason Merrill  <jason@redhat.com>
 
 	* semantics.c (finish_then_clause): Remove redundant assignment.

gcc/cp/typeck.c

@@ -2147,7 +2147,12 @@ finish_class_member_access_expr (tree object, tree name)
 	  /* Look up the member.  */
 	  member = lookup_member (access_path, name, /*protect=*/1, 
 				  /*want_type=*/0);
-	  if (member == error_mark_node)
+	  if (member == NULL_TREE)
+	    {
+	      error ("'%D' has no member named '%E'", object_type, name);
+	      return error_mark_node;
+	    }
+	  else if (member == error_mark_node)
 	    return error_mark_node;
 	}
       else if (TREE_CODE (name) == BIT_NOT_EXPR)
@@ -2171,7 +2176,12 @@ finish_class_member_access_expr (tree object, tree name)
 	  /* An unqualified name.  */
 	  member = lookup_member (object_type, name, /*protect=*/1, 
 				  /*want_type=*/0);
-	  if (member == error_mark_node)
+	  if (member == NULL_TREE)
+	    {
+	      error ("'%D' has no member named '%E'", object_type, name);
+	      return error_mark_node;
+	    }
+	  else if (member == error_mark_node)
 	    return error_mark_node;
 	}
       else

gcc/testsuite/g++.dg/lookup/class-member-1.C

+// Copyright (C) 2002 Free Software Foundation
+// Origin: PR/7621, Vaclav.Haisman@logout.sh.cvut.cz
+// Contributed by Gabriel Dos Reis <gdr@integrable-solutions.net>
+
+struct A { };
+
+int main()
+{
+  A a;
+  a.i = 9;           // { dg-error "no member" "" }
+}