This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Bug fortran/84381] replace non-std 'call abort' by 'stop 1' in gfortran testsuite


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

--- Comment #6 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Neil Carlson from comment #5)
> Thomas, I saw you generated a patch with "stop n".  I'd love to see how you
> did it -- the regexp and counting magic.

At first, I tried to find the all-inclusive regexp to do this, but
that didn't work fast enough, so I settled for running different
scripts for different cases.  I didn't actually save all the
scripts.

The first one was

#! /usr/bin/perl
$n = 1;
$abort = "call *abort *([(] *[)])?";

while (<>)
{
    if (/$abort/) {
        s/$abort/STOP $n/;
        $n++;
    }
    print;
}

and another one

$n = 1;
while (<>)
{
    if (/call\s*abort$/i) {
        s/call\s*abort/STOP $n/i;
        $n++;
    }
    print;
}

and invoked them with

find . -type f -name '*.[fF]*' -exec perl -i ./c2.pl '{}'  ';'

Not the most general solution, but it got me there :-)

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]