]> git.ipfire.org Git - thirdparty/gcc.git/commitdiff
fortran: Fix indentation
authorMikael Morin <mikael@gcc.gnu.org>
Tue, 15 Jul 2025 17:09:21 +0000 (19:09 +0200)
committerMikael Morin <mikael@gcc.gnu.org>
Mon, 21 Jul 2025 12:03:24 +0000 (14:03 +0200)
gcc/fortran/ChangeLog:

* trans-decl.cc (gfc_trans_deferred_vars): Fix indentation.

gcc/fortran/trans-decl.cc

index 43bd7be54cb798ff9633ae7f39391c923e442bc9..d5acdca719fd6c503553685c24ce7ec86b4abf0f 100644 (file)
@@ -4773,14 +4773,14 @@ gfc_trans_deferred_vars (gfc_symbol * proc_sym, gfc_wrapped_block * block)
       /* Nullify explicit return class arrays on entry.  */
       tree type;
       tmp = get_proc_result (proc_sym);
-       if (tmp && GFC_CLASS_TYPE_P (TREE_TYPE (tmp)))
-         {
-           gfc_start_block (&init);
-           tmp = gfc_class_data_get (tmp);
-           type = TREE_TYPE (gfc_conv_descriptor_data_get (tmp));
-           gfc_conv_descriptor_data_set (&init, tmp, build_int_cst (type, 0));
-           gfc_add_init_cleanup (block, gfc_finish_block (&init), NULL_TREE);
-         }
+      if (tmp && GFC_CLASS_TYPE_P (TREE_TYPE (tmp)))
+       {
+         gfc_start_block (&init);
+         tmp = gfc_class_data_get (tmp);
+         type = TREE_TYPE (gfc_conv_descriptor_data_get (tmp));
+         gfc_conv_descriptor_data_set (&init, tmp, build_int_cst (type, 0));
+         gfc_add_init_cleanup (block, gfc_finish_block (&init), NULL_TREE);
+       }
     }