1! { dg-do compile } 2! Tests the fix for PR24325 in which the lack of any declaration 3! that foo is a function or even a procedure was not detected. 4! 5! Contributed by Jakub Jelinek <jakub@gcc.gnu.org> 6! 7 integer foo 8 call test 9contains 10 subroutine test 11 integer :: i 12 i = foo () ! { dg-error "is not a function" } 13 end subroutine test 14end 15 16