Plugins: Add label-text.h to CPPLIB_H so it will be installed [PR115288]

[official-gcc.git] / gcc / testsuite / gfortran.dg / allocatable_scalar_8.f90

! { dg-do run }
!
! PR fortran/41872
!
! Character functions returning allocatable scalars
!
program test
  implicit none
  if (func () /= 'abc') STOP 1
contains
  function func() result (str)
    character(len=3), allocatable :: str
    if (allocated (str)) STOP 2
    allocate (str)
    str = 'abc'
  end function func
end program test