gcc/testsuite/gfortran.dg/func_decl_2.f90

   1 ! { dg-do compile }
   2 ! Test fix for PR16943 in which the double typing of
   3 ! N caused an error.
   4 !
   5 ! Contributed by Paul Thomas  <pault@gcc.gnu.org>
   6 !
   7   program bug8
   8     implicit none
   9     stop " OK. "
  10
  11   contains
  12
  13     integer function bugf(M) result (N)
  14       integer, intent (in) :: M
  15       integer :: N ! { dg-error "already has basic type of INTEGER" }
  16       N = M
  17       return
  18     end function bugf
  19   end program bug8