gfortran.dg/PR82376.f90: Avoid matching a file-path
authorHans-Peter Nilsson <hp@axis.com>
Wed, 11 Aug 2021 21:33:40 +0000 (23:33 +0200)
committerHans-Peter Nilsson <hp@axis.com>
Thu, 12 Aug 2021 12:10:12 +0000 (14:10 +0200)
commitfb0cd8f11167600f11034031ce190151a54a5a95
tree6740635fab9145eb4550287ce09a86a262d4fbf3
parent04b4f3152593f85b05974528d1607619dd77d702
gfortran.dg/PR82376.f90: Avoid matching a file-path

I had a file-path to sources with the substring "new" in it,
and (only) this test regressed compared to results from
another build without "new" in the name.

The test does
 ! { dg-final { scan-tree-dump-times "new" 4 "original" } }
i.e. the contents of the tree-dump-file .original needs to match
the undelimited string "new" exactly four times.  Very brittle.

In the dump-file, there are three lines with calls to new:
     D.908 = new ((integer(kind=4) *) data);
 integer(kind=4) * new (integer(kind=4) & data)
   static integer(kind=4) * new (integer(kind=4) &);

But, there's also a line, which for me and cris-elf looked like:
 _gfortran_runtime_error_at (&"At line 46 of file
  /X/xyzzynewfrob/gcc/testsuite/gfortran.dg/PR82376.f90"[1]{lb: 1 sz: 1},
  &"Pointer actual argument \'new\' is not associated"[1]{lb: 1 sz: 1});
The fourth match is obviously intended to match this line, but only
with *one* match, whereas the path can as above yield another hit.

With Tcl, the regexp for matching the " " *and* the "'"
*and* the "\" gets a bit unsightly, so I suggest just
matching the "new" calls, which according to the comment in
the test is the key point.  You can't have a file-path with
spaces and parentheses in a gcc build.  I'm also making use
of {} rather than "" needing one level of quoting; the "\("
is needed because the matched string is a regexp.

testsuite:
* gfortran.dg/PR82376.f90: Robustify match.
gcc/testsuite/gfortran.dg/PR82376.f90