gcc/testsuite/gfortran.dg/gomp/pr48117.f90


1
2
3
4
5
6
7
8
9
10
11

! PR fortran/48117
! { dg-do compile }
! { dg-options "-O2 -fopenmp" }

subroutine foo(x)
  character(len=*), optional :: x
  character(len=80) :: v
  !$omp master
    if (present(x)) v = adjustl(x)
  !$omp end master
end subroutine foo