| ! { dg-do compile } | |
| ! { dg-options "-Wall" } | |
| ! PR 94270 - this used to give a bogus warning. | |
| ! Test case by Ignacio Fernández Galván. | |
| subroutine foo() | |
| external bar | |
| call meh(bar) | |
| call foo_internal() | |
| contains | |
| subroutine foo_internal() | |
| call meh(bar) | |
| end subroutine foo_internal | |
| end subroutine foo |