From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sat, 26 Jul 2008 10:30:50 +0000 (+0000)
Subject: re PR fortran/36934 (Spurious "ambiguous reference to...ERROR"/ICE)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=19f0452d2bad880e2aa4feb734d0a6e9d7824d07;p=gcc.git

re PR fortran/36934 (Spurious "ambiguous reference to...ERROR"/ICE)

2008-07-26  Thomas Koenig  <tkoenig@gcc.gnu.org>

	PR fortran/36934
	* gfortran.dg/allocatable_module_1.f90:  New test case.

From-SVN: r138167
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index db8df624927..f6e24218824 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-26  Thomas Koenig  <tkoenig@gcc.gnu.org>
+
+	PR fortran/36934
+	* gfortran.dg/allocatable_module_1.f90:  New test case.
+
 2008-07-25  H.J. Lu  <hongjiu.lu@intel.com>
 
 	PR target/36936
diff --git a/gcc/testsuite/gfortran.dg/allocatable_module_1.f90 b/gcc/testsuite/gfortran.dg/allocatable_module_1.f90
new file mode 100644
index 00000000000..47f10008efa
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/allocatable_module_1.f90
@@ -0,0 +1,18 @@
+! { dg-do compile }
+! PR 36934 - this used to give a spurious error and segfault with a
+! patch that wasn't complete
+! Test case contributed by Philip Mason
+
+module fred1
+real, allocatable :: default_clocks(:)
+end module fred1
+
+module fred2
+real, allocatable :: locks(:)
+end module fred2
+
+program fred
+use fred1
+use fred2
+end program fred
+! { dg-final { cleanup-modules "fred1 fred2" } }