blob: 7ca2b93ffb10badb831bdac09bd0da46acdd9b20 [file] [log] [blame]
! PR fortran/85703
! { dg-do compile }
character function f()
!$omp single
!$omp end single
f = 'a'
end