From 5d7de335d797bb22671a929a0b3712fa25aeb4fe Mon Sep 17 00:00:00 2001 From: Brooks Moses Date: Fri, 3 Nov 2006 05:07:59 +0000 Subject: [PATCH] error.c (show_locus): Remove "In file" from error messages. * fortran/error.c (show_locus): Remove "In file" from error messages. * testsuite/lib/gfortran-dg.exp (gfortran-dg-test): Remove expected "In file" from error messages. From-SVN: r118450 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/error.c | 2 +- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/lib/gfortran-dg.exp | 12 ++++++------ 4 files changed, 16 insertions(+), 7 deletions(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index f07fcc941605..800ba511f2a2 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2006-11-02 Brooks Moses + + * error.c (show_locus): Remove "In file" from error messages. + 2006-10-31 Geoffrey Keating * trans-decl.c (gfc_generate_constructors): Update for removal diff --git a/gcc/fortran/error.c b/gcc/fortran/error.c index f63e41634a99..c4ef9d642e0b 100644 --- a/gcc/fortran/error.c +++ b/gcc/fortran/error.c @@ -134,7 +134,7 @@ show_locus (int offset, locus * loc) lb = loc->lb; f = lb->file; - error_printf ("In file %s:%d\n", f->filename, + error_printf ("%s:%d\n", f->filename, #ifdef USE_MAPPED_LOCATION LOCATION_LINE (lb->location) #else diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bfff1679f074..51bceea576c0 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-11-02 Brooks Moses + + * lib/gfortran-dg.exp (gfortran-dg-test): Remove expected "In file" + from error messages. + 2006-11-02 Mike Stump * obj-c++.dg/const-str-9.mm: Don't run on 64-bit. diff --git a/gcc/testsuite/lib/gfortran-dg.exp b/gcc/testsuite/lib/gfortran-dg.exp index 6ceb7fc32555..421e4a49eaca 100644 --- a/gcc/testsuite/lib/gfortran-dg.exp +++ b/gcc/testsuite/lib/gfortran-dg.exp @@ -26,23 +26,23 @@ proc gfortran-dg-test { prog do_what extra_tool_flags } { set output_file [lindex $result 1] # gfortran error messages look like this: - # In file [name]:[line] + # [name]:[line] # # some code # 1 - # Error: Some error at (1) and (2) + # Error: Some error at (1) # or - # In file [name]:[line] + # [name]:[line] # # some code # 1 - # In file [name]:[line2] + # [name]:[line2] # # some other code # 2 # Error: Some error at (1) and (2) # or - # In file [name]:[line] + # [name]:[line] # # some code and some more code # 1 2 @@ -59,7 +59,7 @@ proc gfortran-dg-test { prog do_what extra_tool_flags } { # Note that these regexps only make sense in the combinations used below. # Note also that is imperative that we first deal with the form with # two loci. - set locus_regexp " In file (\[^\n\]*)\n\n\[^\n\]*\n\[^\n\]*\n" + set locus_regexp " (\[^\n\]*)\n\n\[^\n\]*\n\[^\n\]*\n" set diag_regexp "(\[^\n\]*)\n" set two_loci "$locus_regexp$locus_regexp$diag_regexp" -- 2.47.2