! PR middle-end/89621 | |
! { dg-do compile } | |
subroutine sub(str) | |
character(*), intent(in) :: str | |
end subroutine sub | |
program pr89621 | |
implicit none | |
integer i | |
character(len=:), allocatable :: str | |
str = "test" | |
!$omp parallel do | |
do i = 1, 10 | |
call sub(str) | |
enddo | |
!$omp end parallel do | |
end program pr89621 |