From 1adb8be3e8b9c8005530dcb6d387faaccc55df8c Mon Sep 17 00:00:00 2001 From: tkoenig Date: Sat, 26 Jul 2008 10:30:50 +0000 Subject: 2008-07-26 Thomas Koenig 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 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/allocatable_module_1.f90 | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/allocatable_module_1.f90 (limited to 'gcc') 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 + + PR fortran/36934 + * gfortran.dg/allocatable_module_1.f90: New test case. + 2008-07-25 H.J. Lu 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" } } -- cgit v1.2.3