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

--- Comment #4 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Tue, Mar 26, 2019 at 05:59:08PM +0000, tkoenig at gcc dot gnu.org wrote:
> 
> --- Comment #3 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
> (In reply to Zaak from comment #0)
> 
> > Furthermore, there is an error message embedded in the `REPEAT()` function
> 
> I doubt that. REPEAT() is an intrinsic, there are no embedded
> error messages in there.
> 

There's error messages.

% cat tmp/a.F90
subroutine foo(s,n)
  implicit none
  character(len=1), intent(in) :: s
  integer, intent(in) :: n
  write(*,*) repeat(s,n)
end subroutine
% gfcx -c tmp/a.F90
% strings a.o | head -9
ATSH
[A\]
tmp/a.F90
Argument NCOPIES of REPEAT intrinsic is negative (its value is %ld)
At line 5 of file tmp/a.F90
Argument NCOPIES of REPEAT intrinsic is too large
GCC: (GNU) 9.0.1 20190325 (experimental)
a.F90

Zaak wants -fno-working-directory to strip the "tmp/" from
"At line 5 of file tmp/a.F90".  The option applies to pre-processing
and has no impact on gfortran's error mechanism.

Reply via email to