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