gcc/testsuite/gfortran.dg/pr57910.f90

   1 ! { dg-do run }
   2 program strtest
   3
   4   implicit none
   5
   6   character(len=:), allocatable:: my_str
   7
   8   integer, parameter :: slen_init = 7
   9   integer :: slen = slen_init
  10
  11   my_str = fstr(slen)
  12   if (slen /= slen_init .or. len(my_str) /= slen .or. my_str /= ' ') then
  13     call abort
  14   endif
  15
  16 contains
  17
  18   function fstr(strlen)
  19     integer, value :: strlen
  20     character(len=strlen)::fstr
  21
  22     strlen = 17  ! Make sure strlen was really passed by value
  23     fstr = ' '
  24   end function fstr
  25
  26 end program strtest