1! { dg-do compile }
2!
3! PR fortran/48858
4!
5subroutine foo() ! { dg-error "Global name 'foo' at .1. is already being used as a SUBROUTINE at .2." }
6entry foo() ! { dg-error "Global name 'foo' at .1. is already being used as a SUBROUTINE at .2." }
7end subroutine foo
8
9