re PR fortran/85357 (ICE on invalid code with equal procedure names)

2018-12-26  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/85357
        * gfortran.df/pr85357.f90: New test.

From-SVN: r267423

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 138866b98e3f72417a7e29ef65c58f2e19d2ca4f..4b39847d9d8a4937ae01722160b05387833e1d93 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-12-26  Steven G. Kargl  <kargl@gcc.gnu.org>
+
+       PR fortran/85357
+       * gfortran.df/pr85357.f90: New test.
+
 2018-12-24  Steven G. Kargl  <kargl@gcc.gnu.org>
 
        PR fortran/45513

diff --git a/gcc/testsuite/gfortran.dg/pr85357.f90 b/gcc/testsuite/gfortran.dg/pr85357.f90
new file mode 100644 (file)
index 0000000..22f2d3d
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr85357.f90
@@ -0,0 +1,17 @@
+! { dg-do compile }
+module base
+   implicit none
+contains
+   subroutine summation(i)
+      integer, intent(in) :: i
+   end subroutine
+end module
+
+module extended
+   use base
+   implicit none
+contains
+   subroutine summation()  ! { dg-error "is already defined" }
+   end subroutine          ! { dg-error "Expecting END MODULE statement" }
+end module
+! { dg-prune-output "is already defined at" }