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
20