16 lines
350 B
Fortran
16 lines
350 B
Fortran
! { 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
|
|
|