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