From 19f0452d2bad880e2aa4feb734d0a6e9d7824d07 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Sat, 26 Jul 2008 10:30:50 +0000 Subject: [PATCH] re PR fortran/36934 (Spurious "ambiguous reference to...ERROR"/ICE) 2008-07-26 Thomas Koenig PR fortran/36934 * gfortran.dg/allocatable_module_1.f90: New test case. From-SVN: r138167 --- 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 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index db8df62..f6e2421 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 0000000..47f1000 --- /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" } } -- 2.7.4