1! { dg-do run }
2!
3! PR fortran/41872
4!
5! Character functions returning allocatable scalars
6!
7program test
8  implicit none
9  if (func () /= 'abc') call abort ()
10contains
11  function func() result (str)
12    character(len=3), allocatable :: str
13    if (allocated (str)) call abort ()
14    allocate (str)
15    str = 'abc'
16  end function func
17end program test
18