diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-26 21:08:53 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2018-12-26 21:08:53 +0000 |
| commit | c673c52c2086eca1d178fbfb22e6667a353563c8 (patch) | |
| tree | a99b09135e9ff51577d27dc4dac9c3cb6a315de1 | |
| parent | 2b8c2e7fb1953195df63a47fbd0c23d7db3ee5ae (diff) | |
| download | gcc-c673c52c2086eca1d178fbfb22e6667a353563c8.zip gcc-c673c52c2086eca1d178fbfb22e6667a353563c8.tar.gz gcc-c673c52c2086eca1d178fbfb22e6667a353563c8.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr85357.f90 | 17 |
2 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 138866b..4b39847 100644 --- 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 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" } |