Problem with allocatable string array expansion

program SumRes
implicit none

! file1
!  lc120008A100Lh0_11     840.9    1031.9  1     843.3    1015.5  2     492.4    1496.3    5479.7    5956.7      1.26      3.03
!  lc122391A100Lh0_11     795.0    1146.5  8     796.8    1139.6  9     442.4    1453.2    5478.6    5927.7      1.18      4.01
  integer::nlc,ius=10
  character(:),allocatable::crad,StrArr(:)
  iuS=10; crad='lc120008A100Lh0_11     840.9    1031.9  1     843.3    1015.5  2     492.4    1496.3    5479.7    5956.7      1.26      3.03'
   do nlc=1,20000
        if(nlc==1)then
           strarr=[crad]
        else
           strarr=[strarr,crad] 
        end if
  end do  ! nsim
   
end program SumRes

! I got access violation when calling CRTIMP PFLS_GETVALUE_FUNCTION __cdecl __set_flsgetvalue in tidtable.c when nlc >8400 in a Modern 64bit PC, Win7 Platform and IVF11.