1! PR fortran/85703
2! { dg-do compile }
3
4character function f()
5  !$omp single
6  !$omp end single
7  f = 'a'
8end
9