1! PR fortran/88377 2! { dg-do compile } 3 4program pr88377 5 call s(3) 6contains 7 subroutine s(n) 8 integer :: n 9 character(n), allocatable :: x 10 x = 'abc' 11 !$omp task 12 print *, x, (x == 'abc') 13 !$omp end task 14 end 15end 16