2 ! Check the fix for PR36795, where the parentheses in the call to foo were
3 ! simplified out ie. foo((xx), xx) simplified to foo (xx, xx)
5 ! Conributed by Vivek Rao <vivekrao4@yahoo.com>
9 character(len=10), allocatable :: xx(:)
10 character(len=10) :: yy
15 if (trim (xx(1)) .ne. "dog") call abort
16 if (size (xx, 1) .ne. 1) call abort
18 subroutine foo (xx,yy)
19 character(len=*), intent(in) :: xx(:)
20 character(len=*), intent(out), allocatable :: yy(:)
21 if (allocated (yy)) deallocate (yy)