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