Subversion Repositories openrisc

! { dg-do compile }

! Test fix for PR16943 in which the double typing of

! N caused an error.  This is a common extension to the

! F95 standard, so the error is only thrown for -std=f95

! or -pedantic.

!

! Contributed by Paul Thomas  

!

  program bug8

    implicit none

    stop " OK. "

  contains

    integer function bugf(M) result (N)

      integer, intent (in) :: M

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

      N = M

      return

    end function bugf

  end program bug8