1! PR fortran/48117
2! { dg-do compile }
3! { dg-options "-O2 -fopenmp" }
4
5subroutine foo(x)
6  character(len=*), optional :: x
7  character(len=80) :: v
8  !$omp master
9    if (present(x)) v = adjustl(x)
10  !$omp end master
11end subroutine foo
12