1! { dg-do compile }
2! PR fortran/68318
3! Original code submitted by Gerhard Steinmetz
4! <gerhard dot steinmetz dot fortran at t-online dot de>
5!
6module m1
7   implicit none
8contains
9   subroutine s1
10   entry e
11   end
12end module
13
14module m2
15   use m1         ! { dg-error "(2)" }
16   implicit none
17contains
18   subroutine s2
19   entry e        ! { dg-error "is already defined" }
20   end
21end module
22! { dg-prune-output "Cannot change attribute" }
23