| ! { dg-do compile } | |
| ! Tests the fix for PR24325 in which the lack of any declaration | |
| ! that foo is a function or even a procedure was not detected. | |
| ! | |
| ! Contributed by Jakub Jelinek <jakub@gcc.gnu.org> | |
| ! | |
| integer foo | |
| call test | |
| contains | |
| subroutine test | |
| integer :: i | |
| i = foo () ! { dg-error "is not a function" } | |
| end subroutine test | |
| end | |