From d773ed85c56fbae24f13b4e4a054fcc7ca1550f7 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Sat, 24 Jan 2015 18:10:48 +0100 Subject: [PATCH] parse.c (gfc_parse_file): Fix two-location gfc_error call. 2015-01-24 Tobias Burnus * parse.c (gfc_parse_file): Fix two-location gfc_error call. From-SVN: r220084 --- gcc/fortran/ChangeLog | 4 ++++ gcc/fortran/parse.c | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 26af0416598..be961012e4b 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,7 @@ +2015-01-24 Tobias Burnus + + * parse.c (gfc_parse_file): Fix two-location gfc_error call. + 2015-01-23 Martin Liska * decl.c (attr_decl1): Workaround -Wmaybe-uninitialized diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index fd7d4ebc39f..34e30263836 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -5544,7 +5544,7 @@ duplicate_main: /* If we see a duplicate main program, shut down. If the second instance is an implied main program, i.e. data decls or executable statements, we're in for lots of errors. */ - gfc_error ("Two main PROGRAMs at %L and %C", &prog_locus); + gfc_error_1 ("Two main PROGRAMs at %L and %C", &prog_locus); reject_statement (); gfc_done_2 (); return true; -- 2.30.2