PR fortran/34896
* module.c (read_module): Set use_rename attribute.
2008-01-22 Paul Thomas <pault@gcc.gnu.org>
PR fortran/34896
* gfortran.dg/use_rename_2.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@131712
138bc75d-0d04-0410-961f-
82ee72b054a4
+2008-01-22 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/34896
+ * module.c (read_module): Set use_rename attribute.
+
2007-01-21 Tobias Burnus <burnus@net-b.de>
PR fortran/34901
st->n.sym = sym;
st->n.sym->refs++;
+ if (strcmp (name, p) != 0)
+ sym->attr.use_rename = 1;
+
/* Store the symtree pointing to this symbol. */
info->u.rsym.symtree = st;
+2008-01-22 Paul Thomas <pault@gcc.gnu.org>
+
+ PR fortran/34896
+ * gfortran.dg/use_rename_2.f90: New test.
+
2008-01-21 Richard Guenther <rguenther@suse.de>
PR middle-end/34856
--- /dev/null
+! { dg-do run }
+! { dg-options "-O1" }
+! Checks the fix for PR34896 which was a regression that prevented max
+! and min from being interchanged by the USE statement below. It is further
+! checked by libgomp/testsuite/libgomp.fortran/reduction5.f90
+!
+! Reported by H.J. Lu <hjl.tools@gmail.com>
+!
+module reduction5
+ intrinsic min, max
+end module reduction5
+
+program reduction_5_regression
+ call test2
+contains
+ subroutine test2
+ use reduction5, min => max, max => min
+ integer a, b
+ a = max (1,5)
+ b = min (1,5)
+ if (a .ne. 1) call abort ()
+ if (b .ne. 5) call abort ()
+ end subroutine test2
+end
+
+! { dg-final { cleanup-modules "reduction5" } }