2 ! Siblings may be used as actual arguments, in which case they look like
3 ! variables during parsing. Also checks that actual variables aren't replaced
4 ! by siblings with the same name
20 subroutine sub (proc, var)
24 if (var .ne. 42) call abort
32 if (i .ne. 1) call abort
35 ! { dg-final { cleanup-modules "contained_1_mod" } }