1 ! This testcase was miscompiled, because ts.cl
2 ! in function bar was initially shared between both
3 ! dummy arguments. Although it was later unshared,
4 ! all expressions which copied ts.cl from bar2
5 ! before that used incorrectly bar1's length
9 subroutine foo (foo1, foo2)
11 integer, intent(in) :: foo2
12 character(*), intent(in) :: foo1(foo2)
15 subroutine bar (bar1, bar2)
17 character(*), intent(in) :: bar1, bar2
19 call foo ((/ bar2 /), 1)