gcc/fortran/check.c

503       bool pointer = e->symtree->n.sym->ts.type == BT_CLASS
506 		     : e->symtree->n.sym->attr.pointer;
510 	  if (pointer && ref->type == REF_COMPONENT)
516 		      && ref->u.c.component->attr.pointer)))
896 gfc_check_associated (gfc_expr *pointer, gfc_expr *target)
903   where = &pointer->where;
905   if (pointer->expr_type == EXPR_NULL)
908   attr1 = gfc_expr_attr (pointer);
910   if (!attr1.pointer && !attr1.proc_pointer)
914 		 &pointer->where);
919   if (attr1.pointer && gfc_is_coindexed (pointer))
923 		 gfc_current_intrinsic, &pointer->where);
939       gfc_error ("%qs argument of %qs intrinsic at %L must be a pointer "
946   if (attr1.pointer && !attr2.pointer && !attr2.target)
955   if (attr1.pointer && gfc_is_coindexed (target))
964   if (!same_type_check (pointer, 0, target, 1))
966   if (!rank_check (target, 0, pointer->rank))
974 		       "be the target of a pointer",
984   gfc_error ("NULL pointer at %L is not permitted as actual argument "
1654   if (op->rank || attr.allocatable || attr.pointer || formal->sym->as
1656       || formal->next->sym->attr.allocatable || formal->sym->attr.pointer
1657       || formal->next->sym->attr.pointer)
3407   if (!attr.pointer && !attr.proc_pointer && !attr.allocatable)
3410 		 "ALLOCATABLE or procedure pointer",
3622 		  ? a->value.function.esym->result->attr.pointer
3623 		  : a->symtree->n.sym->result->attr.pointer;
4418   if (!attr.pointer)
4420       gfc_error ("Argument FPTR at %L to C_F_POINTER must be a pointer",
4510 		 "pointer", &fptr->where);
4523 			   "pointer at %L to C_F_PROCPOINTER", &fptr->where);
4560 		 "or a procedure pointer", &x->where);
4592   if (!attr.pointer
6312 		 "disassociated pointer", &a->where);