1! PR middle-end/89621
2! { dg-do compile }
3
4subroutine sub(str)
5  character(*), intent(in) :: str
6end subroutine sub
7
8program pr89621
9  implicit none
10  integer i
11  character(len=:), allocatable :: str
12  str = "test"
13  !$omp parallel do
14  do i = 1, 10
15    call sub(str)
16  enddo
17  !$omp end parallel do
18end program pr89621
19