diff --git a/gcc/cp/ChangeLog b/gcc/cp/ChangeLog
index 72bd508f6a1014b9c158c0a5f7466b4c7194acd9..82db5a44e35e58ffce93f1ee0ba0add6afcf9d85 100644
--- a/gcc/cp/ChangeLog
+++ b/gcc/cp/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-17  Kriang Lerdsuwanakij  <lerdsuwa@users.sourceforge.net>
+
+	PR c++/7809
+	* g++.dg/parse/access3.C: New test.
+
 2003-07-17  Gabriel Dos Reis  <gdr@integrable-solutions.net>
 
 	PR c++/10668
diff --git a/gcc/cp/friend.c b/gcc/cp/friend.c
index e31a0559a0fd00e4ea2619c277a7c9acead86884..b71c5f203db08c844c999b4bd11173c9f402b5cb 100644
--- a/gcc/cp/friend.c
+++ b/gcc/cp/friend.c
@@ -170,6 +170,9 @@ add_friend (tree type, tree decl)
       list = TREE_CHAIN (list);
     }
 
+  if (DECL_CLASS_SCOPE_P (decl))
+    perform_or_defer_access_check (TYPE_BINFO (DECL_CONTEXT (decl)), decl);
+
   maybe_add_class_template_decl_list (type, decl, /*friend_p=*/1);
 
   DECL_FRIENDLIST (typedecl)
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 61938bf86600e9a77d3891e03e0486663f18396d..f2ce617d2d16ef93d3070ad69d2adf73da6e42cf 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-07-17  Kriang Lerdsuwanakij  <lerdsuwa@users.sourceforge.net>
+
+	PR c++/7809
+	* friend.c (add_friend): Check access for member functions
+	and templates.
+
 2003-06-17  Andrew Pinski  <pinskia@physics.uc.edu>
 
 	PR c++/11384
diff --git a/gcc/testsuite/g++.dg/parse/access3.C b/gcc/testsuite/g++.dg/parse/access3.C
new file mode 100644
index 0000000000000000000000000000000000000000..43303c95a943e7ea491f16a0bbd8ea60d301dcdf
--- /dev/null
+++ b/gcc/testsuite/g++.dg/parse/access3.C
@@ -0,0 +1,14 @@
+// { dg-do compile }
+
+// Origin: <bagnara@cs.unipr.it>
+
+// PR c++/7809: Befriending inaccessible name.
+
+class A {
+private:
+  void f();		// { dg-error "private" }
+};
+
+class B {
+  friend void A::f();	// { dg-error "context" }
+};