blob: 168d4b52f2d934b9653a6bb3d1acfa71677df4c6 (
plain)
1
2
3
4
5
6
7
|
! { dg-do compile }
! Make sure this error is flagged.
subroutine foo() ! { dg-error "is already being used as a SUBROUTINE" }
end subroutine foo
subroutine bar() bind(C,name="foo") ! { dg-error "is already being used as a SUBROUTINE" }
end subroutine bar
|
