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." }
6end subroutine foo
7
8subroutine foo() ! { dg-error "Global name 'foo' at .1. is already being used as a SUBROUTINE at .2." }
9end subroutine foo
10
11