973 gfc_compare_array_spec (gfc_array_spec *as1, gfc_array_spec *as2)  in gfc_compare_array_spec()  argument
977   if (as1 == NULL && as2 == NULL)  in gfc_compare_array_spec()
980   if (as1 == NULL || as2 == NULL)  in gfc_compare_array_spec()
983   if (as1->rank != as2->rank)  in gfc_compare_array_spec()
986   if (as1->corank != as2->corank)  in gfc_compare_array_spec()
989   if (as1->rank == 0)  in gfc_compare_array_spec()
992   if (as1->type != as2->type)  in gfc_compare_array_spec()
995   if (as1->type == AS_EXPLICIT)  in gfc_compare_array_spec()
996     for (i = 0; i < as1->rank + as1->corank; i++)  in gfc_compare_array_spec()
998 	if (compare_bounds (as1->lower[i], as2->lower[i]) == 0)  in gfc_compare_array_spec()
1001 	if (compare_bounds (as1->upper[i], as2->upper[i]) == 0)  in gfc_compare_array_spec()