gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/41872
   4 !
   5 ! Character functions returning allocatable scalars
   6 !
   7 program test
   8   implicit none
   9   if (func () /= 'abc') call abort ()
  10 contains
  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
  17 end program test