Subversion Repositories openrisc_me

! PR15986

! PR15986

! Siblings may be used as actual arguments, in which case they look like

! Siblings may be used as actual arguments, in which case they look like

! variables during parsing.  Also checks that actual variables aren't replaced

! variables during parsing.  Also checks that actual variables aren't replaced

! by siblings with the same name

! by siblings with the same name

! { dg-do run }

! { dg-do run }

module contained_1_mod

module contained_1_mod

integer i

integer i

contains

contains

subroutine a

subroutine a

  integer :: c = 42

  integer :: c = 42

  call sub(b, c)

  call sub(b, c)

end subroutine a

end subroutine a

subroutine b()

subroutine b()

  i = i + 1

  i = i + 1

end subroutine b

end subroutine b

subroutine c

subroutine c

end subroutine

end subroutine

end module

end module

subroutine sub (proc, var)

subroutine sub (proc, var)

  external proc1

  external proc1

  integer var

  integer var

  if (var .ne. 42) call abort

  if (var .ne. 42) call abort

  call proc

  call proc

end subroutine

end subroutine

program contained_1

program contained_1

  use contained_1_mod

  use contained_1_mod

  i = 0

  i = 0

  call a

  call a

  if (i .ne. 1) call abort

  if (i .ne. 1) call abort

end program

end program

! { dg-final { cleanup-modules "contained_1_mod" } }

! { dg-final { cleanup-modules "contained_1_mod" } }