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