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