[Bug fortran/66310] Problems with intrinsic repeat for large number of copies

[anlauf at gmx dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=66310

--- Comment #21 from Harald Anlauf <anlauf at gmx dot de> ---
(In reply to Jerry DeLisle from comment #20)
>    program p
>       character(kind=1), parameter :: z = 'z'
>       integer, parameter :: big = 536870911
>       !print *, repeat(z, huge(1_4)/4)
>       !print *, (huge(1)-1)/4, huge(1) - 1
>       print *, repeat(z, big)
>    end

Works for me on i686-pc-linux-gnu.