diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-09-20 22:49:20 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-09-20 22:49:20 +0200 |
| commit | dee1c2653129a8c71d9ef113729476cba1ae5d9d (patch) | |
| tree | 005482c5a84c2d4d76f6c535ec8136705e624644 /gcc | |
| parent | 10439b597da13929a4e5f2fd3dc6679896d57a2d (diff) | |
| download | gcc-dee1c2653129a8c71d9ef113729476cba1ae5d9d.zip gcc-dee1c2653129a8c71d9ef113729476cba1ae5d9d.tar.gz gcc-dee1c2653129a8c71d9ef113729476cba1ae5d9d.tar.bz2 | |
re PR fortran/54599 (Issues found in gfortran by the Coverity Scan)
2012-09-20 Tobias Burnus <burnus@net-b.de>
PR fortran/54599
* cpp.c (print_line): Properly handle extern C.
From-SVN: r191590
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/fortran/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/fortran/cpp.c | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2f405b8..6679a15 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2012-09-20 Tobias Burnus <burnus@net-b.de> + + PR fortran/54599 + * cpp.c (print_line): Properly handle extern C. + 2012-09-20 Martin Jambor <mjambor@suse.cz> * trans-decl.c (gfc_get_extern_function_decl): Push NULL cfun. Do not diff --git a/gcc/fortran/cpp.c b/gcc/fortran/cpp.c index 2f18893..c45af39 100644 --- a/gcc/fortran/cpp.c +++ b/gcc/fortran/cpp.c @@ -822,6 +822,7 @@ print_line (source_location src_loc, const char *special_flags) size_t to_file_len; unsigned char *to_file_quoted; unsigned char *p; + int sysp; loc = expand_location (src_loc); to_file_len = strlen (loc.file); @@ -838,9 +839,10 @@ print_line (source_location src_loc, const char *special_flags) print.src_line == 0 ? 1 : print.src_line, to_file_quoted, special_flags); - if (loc.sysp == 2) + sysp = in_system_header_at (src_loc); + if (sysp == 2) fputs (" 3 4", print.outf); - else if (loc.sysp == 1) + else if (sysp == 1) fputs (" 3", print.outf); putc ('\n', print.outf); |