diff options
Diffstat (limited to 'gcc/fortran/trans-decl.cc')
| -rw-r--r-- | gcc/fortran/trans-decl.cc | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/trans-decl.cc b/gcc/fortran/trans-decl.cc index 893eac0..8dd1c93 100644 --- a/gcc/fortran/trans-decl.cc +++ b/gcc/fortran/trans-decl.cc @@ -2481,7 +2481,7 @@ module_sym: // We need DECL_ARGUMENTS to put attributes on, in case some arguments // need adjustment create_function_arglist (sym->formal_ns->proc_name); - gfc_trans_omp_declare_variant (sym->formal_ns); + gfc_trans_omp_declare_variant (sym->formal_ns, sym->ns); } } @@ -3269,7 +3269,7 @@ gfc_create_function_decl (gfc_namespace * ns, bool global) be declared in a parent namespace, so this needs to be called even if there are no local directives. */ if (flag_openmp) - gfc_trans_omp_declare_variant (ns); + gfc_trans_omp_declare_variant (ns, NULL); } /* Return the decl used to hold the function return value. If |