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