diff options
Diffstat (limited to 'libgfortran/runtime/error.c')
| -rw-r--r-- | libgfortran/runtime/error.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/libgfortran/runtime/error.c b/libgfortran/runtime/error.c index f0a4ff2291d..8cd966fa23f 100644 --- a/libgfortran/runtime/error.c +++ b/libgfortran/runtime/error.c @@ -202,6 +202,11 @@ show_locus (st_parameter_common *cmp) (int) cmp->line, cmp->filename, cmp->unit, filename); free_mem (filename); } + else + { + st_printf ("At line %d of file %s (unit = %d)\n", + (int) cmp->line, cmp->filename, cmp->unit); + } return; } |