Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=gnu -Wsurprising" }

! PR fortran/30239

! Check for errors when a symbol gets declared a type twice, even if it

! is the same.

INTEGER FUNCTION foo ()

  IMPLICIT NONE

  INTEGER :: foo ! { dg-error "basic type of" }

  INTEGER :: foo ! { dg-error "basic type of" }

  foo = 42

END FUNCTION foo

INTEGER FUNCTION bar () RESULT (x)

  IMPLICIT NONE

  INTEGER :: x ! { dg-error "basic type of" }

  INTEGER :: y

  INTEGER :: y ! { dg-error "basic type of" }

  x = 42

END FUNCTION bar