1 ! Program to test contained functions calling their siblings.
2 ! This is tricky because we don't find the declaration for the sibling
3 ! function until after the caller has been parsed.
8 if (sub(3) .ne. 6) call abort
10 integer function sub(i)
18 integer function sub2(i)