Subversion Repositories openrisc

! PR15986

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

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

! by siblings with the same name

! { dg-do run }

module contained_1_mod

integer i

contains

subroutine a

  integer :: c = 42

  call sub(b, c)

end subroutine a

subroutine b()

  i = i + 1

end subroutine b

subroutine c

end subroutine

end module

subroutine sub (proc, var)

  external proc1

  integer var

  if (var .ne. 42) call abort

  call proc

end subroutine

program contained_1

  use contained_1_mod

  i = 0

  call a

  if (i .ne. 1) call abort

end program

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