Subversion Repositories openrisc_me

! { 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 

!

  integer foo

  call test

contains

  subroutine test

    integer :: i

    i = foo () ! { dg-error "is not a function" }

  end subroutine test

end