===================================================================
@@ -66,7 +66,7 @@ F95_OBJS = $(F95_PARSER_OBJS) $(FORTRAN_TARGET_OBJ
fortran/trans.o fortran/trans-array.o fortran/trans-common.o \
fortran/trans-const.o fortran/trans-decl.o fortran/trans-expr.o \
fortran/trans-intrinsic.o fortran/trans-io.o fortran/trans-openmp.o \
- fortran/trans-stmt.o fortran/trans-types.o
+ fortran/trans-stmt.o fortran/trans-types.o fortran/optimize.o
fortran_OBJS = $(F95_OBJS) gfortranspec.o
===================================================================
@@ -2825,4 +2825,8 @@ gfc_symtree* gfc_get_tbp_symtree (gfc_symtree**, c
#define CLASS_DATA(sym) sym->ts.u.derived->components
+/* optimize.c */
+
+void gfc_optimize_namespace (gfc_namespace *);
+
#endif /* GCC_GFORTRAN_H */
===================================================================
@@ -4371,6 +4371,9 @@ gfc_generate_function_code (gfc_namespace * ns)
int rank;
bool is_recursive;
+ if (optimize)
+ gfc_optimize_namespace (ns);
+
sym = ns->proc_name;
/* Check that the frontend isn't still using this. */