Message ID | 1385091069-23732-7-git-send-email-dmalcolm@redhat.com |
---|---|
State | New |
Headers | show |
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 204cbff..7805b57 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -424,7 +424,7 @@ trans_runtime_error_vararg (bool error, locus* where, const char* msgid, } else asprintf (&message, "In file '%s', around line %d", - gfc_source_file, input_line + 1); + gfc_source_file, LOCATION_LINE (input_location) + 1); arg = gfc_build_addr_expr (pchar_type_node, gfc_build_localized_cstring_const (message));