Message ID | 20181226211429.GA164@troutmask.apl.washington.edu |
---|---|
State | New |
Headers | show |
Series | [Committed] PR fortran/85357 -- add testcase | expand |
Index: gcc/testsuite/gfortran.dg/pr85357.f90 =================================================================== --- gcc/testsuite/gfortran.dg/pr85357.f90 (nonexistent) +++ gcc/testsuite/gfortran.dg/pr85357.f90 (working copy) @@ -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" }