PR fortran/34435
* module.c (find_symbol): Do not return symtrees with unique
names, which shows that they are private.
2007-12-06 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34435
* gfortran.dg/used_types_19.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130642
138bc75d-0d04-0410-961f-
82ee72b054a4
+2007-12-06 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/34435
+ * module.c (find_symbol): Do not return symtrees with unique
+ names, which shows that they are private.
+
2007-12-05 Jakub Jelinek <jakub@redhat.com>
PR debug/33739
c = strcmp (name, st->n.sym->name);
if (c == 0 && st->n.sym->module
- && strcmp (module, st->n.sym->module) == 0)
+ && strcmp (module, st->n.sym->module) == 0
+ && !check_unique_name (st->name))
{
if ((!generic && !st->n.sym->attr.generic)
|| (generic && st->n.sym->attr.generic))
+2007-12-06 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/34435
+ * gfortran.dg/used_types_19.f90: New test.
+
2007-12-06 Kaz Kojima <kkojima@gcc.gnu.org>
* gfortran.dg/nan_2.f90: Add -mieee for sh.
--- /dev/null
+! { dg-do compile }
+! Tests the fix for PR34335 a regression in which the PRIVATE attribute
+! of type(a) in module b would be ignored and would prevent it being
+! loaded in the main program.
+!
+! Contributed by Janus Weil <jaydub66@gmail.com>
+!
+module A
+ type A_type
+ real comp
+ end type
+end module A
+
+module B
+ use A
+ private
+ type(A_type) :: B_var
+ public:: B_var
+end module B
+
+program C
+ use B
+ use A
+ type(A_type):: A_var
+end program C
+! { dg-final { cleanup-modules "a b" } }