| ! 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 |