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