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