Only free r-array of statuses if not ignore

Author: kevin-juilly

src/resources/generator_data/code/C/templates/in_functions.jinja

@@ -45,7 +45,9 @@
             {%-  if arg['arg_dep']|default("") != "" -%} 
                 {%- if map['max_mpi']|default("") == "" or map['type']!='char *' %}
                 {%-  if map['type'] == 'MPI_Status'-%} 
-                    wi4mpi_free(array_of_statuses_tmp);
+                    if (array_of_statuses != A_MPI_STATUSES_IGNORE) {
+                        wi4mpi_free(array_of_statuses_tmp);
+                    }
                 {%-  else-%}  
                     wi4mpi_free({{var|replace('[]','')}}_tmp);
                 {%-  endif-%} 

src/resources/generator_data/code/fortran/templates/in_functions.jinja

@@ -52,7 +52,9 @@
         {%  if map['no_map']|default("") == "" -%}
         {%- if 'status_size' in map -%}
             {%- if 'arg_dep' in arg and arg['arg_dep'] != '' -%}
-                wi4mpi_free({{var}}_tmp);
+                if ({{var}} != A_f_MPI_STATUSES_IGNORE) {
+                    wi4mpi_free({{var}}_tmp);
+                }
             {%- endif -%}
         {%- else -%}
             {%- if 'arg_dep' in arg and arg['arg_dep']!='' -%}