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 494d8aa905e..75b84f1495b 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -5723,8 +5723,8 @@ gfc_generate_function_code (gfc_namespace * ns) { char * msg; - asprintf (&msg, "Recursive call to nonrecursive procedure '%s'", - sym->name); + msg = xasprintf ("Recursive call to nonrecursive procedure '%s'", + sym->name); recurcheckvar = gfc_create_var (boolean_type_node, "is_recursive"); TREE_STATIC (recurcheckvar) = 1; DECL_INITIAL (recurcheckvar) = boolean_false_node; |