Subversion Repositories openrisc_me

! { dg-do compile }

! Test fix for PR16943 in which the double typing of

! N caused an error.

!

! Contributed by Paul Thomas  

!

  program bug8

    implicit none

    stop " OK. "

  contains

    integer function bugf(M) result (N)

      integer, intent (in) :: M

      integer :: N ! { dg-error "already has basic type of INTEGER" }

      N = M

      return

    end function bugf

  end program bug8