Fwd: intrinsic repeat() completely broken (regression)

[Steve Kargl]

On Tue, Mar 26, 2019 at 09:38:41AM -0700, Damian Rouson wrote:
> 
> Hi All,
> 
> I have filed a bug report at
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89830 which seems to be a
> serious regression.
> 
> There are two main issues:
> 
> 1. The non-elemental intrinsic string handling function, repeat(),
> seems to be completely broken and unusable in most cases. I included a
> very trivial reproducer in the bug report.

gfortran's response is appropriate for the code in the PR.

program repeat
  implicit none
  write(*,*) repeat('a',5)
end program

The program name 'repeat' conflicts with the intrinsic routine 'repeat'.

program foo
  implicit none
  write(*,*) repeat('a',5)
end program

The above works as expected.

-- 
Steve