! 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" } }