gcc/testsuite/gfortran.dg/func_decl_3.f90

   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
   9 contains
  10   subroutine test
  11     integer :: i
  12     i = foo () ! { dg-error "is not a function" }
  13   end subroutine test
  14 end
  15