Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
gomp
/
pr48117.f90
blob: bc8ad9bc35eb2b32402ae7fbc8d41063ed77b9bb [
file
] [
log
] [
blame
]
!
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