summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>2008-07-26 10:30:50 +0000
committertkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4>2008-07-26 10:30:50 +0000
commit1adb8be3e8b9c8005530dcb6d387faaccc55df8c (patch)
tree4f8962c04161f5ec643ce2c518e052bded071ba2
parent8d8c4c8d833e821376b00a1f83b44bb701824b16 (diff)
downloadppe42-gcc-1adb8be3e8b9c8005530dcb6d387faaccc55df8c.tar.gz
ppe42-gcc-1adb8be3e8b9c8005530dcb6d387faaccc55df8c.zip
2008-07-26 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/36934 * gfortran.dg/allocatable_module_1.f90: New test case. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@138167 138bc75d-0d04-0410-961f-82ee72b054a4
-rw-r--r--gcc/testsuite/ChangeLog5
-rw-r--r--gcc/testsuite/gfortran.dg/allocatable_module_1.f9018
2 files changed, 23 insertions, 0 deletions
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" } }
OpenPOWER on IntegriCloud