Fortran: Reduce code complexity [PR77872]

	PR fortran/77872

gcc/fortran/ChangeLog:

	* trans-expr.cc (gfc_conv_procedure_call): Use attr instead of
	doing type check and branching for BT_CLASS.

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index e619013f261ea16ea76f3e7e3e38c5ab63504a6f..7c0b17428cdda7d2bad23f2e9c31810a6a01a06d 100644 (file)
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -8216,23 +8216,15 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
       /* For descriptorless coarrays and assumed-shape coarray dummies, we
         pass the token and the offset as additional arguments.  */
       if (fsym && e == NULL && flag_coarray == GFC_FCOARRAY_LIB
-         && ((fsym->ts.type != BT_CLASS && fsym->attr.codimension
-              && !fsym->attr.allocatable)
-             || (fsym->ts.type == BT_CLASS
-                 && CLASS_DATA (fsym)->attr.codimension
-                 && !CLASS_DATA (fsym)->attr.allocatable)))
+         && attr->codimension && !attr->allocatable)
        {
          /* Token and offset.  */
          vec_safe_push (stringargs, null_pointer_node);
          vec_safe_push (stringargs, build_int_cst (gfc_array_index_type, 0));
          gcc_assert (fsym->attr.optional);
        }
-      else if (fsym && flag_coarray == GFC_FCOARRAY_LIB
-              && ((fsym->ts.type != BT_CLASS && fsym->attr.codimension
-                   && !fsym->attr.allocatable)
-                  || (fsym->ts.type == BT_CLASS
-                      && CLASS_DATA (fsym)->attr.codimension
-                      && !CLASS_DATA (fsym)->attr.allocatable)))
+      else if (fsym && flag_coarray == GFC_FCOARRAY_LIB && attr->codimension
+              && !attr->allocatable)
        {
          tree caf_decl, caf_type, caf_desc = NULL_TREE;
          tree offset, tmp2;