diff options
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index b345ed99c8e..e4f564cbf67 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -244,8 +244,8 @@ gfc_get_label_decl (gfc_st_label * lp) /* Tell the debugger where the label came from. */ if (lp->value <= MAX_LABEL_VALUE) /* An internal label */ { - DECL_SOURCE_LINE (label_decl) = lp->where.line; - DECL_SOURCE_FILE (label_decl) = lp->where.file->filename; + DECL_SOURCE_LINE (label_decl) = lp->where.lb->linenum; + DECL_SOURCE_FILE (label_decl) = lp->where.lb->file->filename; } else DECL_ARTIFICIAL (label_decl) = 1; |
