gcc/fortran/expr.c

2449    intrinsics in the context of initialization expressions.  If
2901       /* If a dummy argument appears in a context that is valid for a
4774 /* Check if an expression may appear in a variable definition context
4775    (F2008, 16.6.7) or pointer association context (F2008, 16.6.8).
4777    the pieces that make up such a context.
4781    Optionally, a possible error message can be suppressed if context is NULL
4786 			  bool own_scope, const char* context)
4812 	  if (context)
4814 		       " context (%s) at %L", context, &e->where);
4820       if (context)
4821 	gfc_error ("Non-variable expression in variable definition context (%s)"
4822 		   " at %L", context, &e->where);
4828       if (context)
4829 	gfc_error ("Named constant %qs in variable definition context (%s)"
4830 		   " at %L", sym->name, context, &e->where);
4837       if (context)
4838 	gfc_error ("%qs in variable definition context (%s) at %L is not"
4839 		   " a variable", sym->name, context, &e->where);
4848       if (context)
4849 	gfc_error ("Non-POINTER in pointer association context (%s)"
4850 		   " at %L", context, &e->where);
4861       if (context)
4862 	gfc_error ("LOCK_TYPE in variable definition context (%s) at %L",
4863 		   context, &e->where);
4874       if (context)
4875 	gfc_error ("LOCK_EVENT in variable definition context (%s) at %L",
4876 		   context, &e->where);
4903 	  if (context)
4905 		       " association context (%s) at %L",
4906 		       sym->name, context, &e->where);
4911 	  if (context)
4913 		       " definition context (%s) at %L",
4914 		       sym->name, context, &e->where);
4924 	  if (context)
4926 		       " pointer association context (%s) at %L",
4927 		       sym->name, context, &e->where);
4932 	  if (context)
4934 		       " variable definition context (%s) at %L",
4935 		       sym->name, context, &e->where);
4941      variable definition context.  */
4944       if (context)
4946 		   " context (%s) at %L in PURE procedure",
4947 		   sym->name, context, &e->where);
4951   if (!pointer && context && gfc_implicit_pure (NULL)
4969   /* Check variable definition context for associate-names.  */
5001 	  if (context)
5005 			   " not be used in a variable definition context (%s)",
5006 			   name, &e->where, context);
5009 			   " not be used in a variable definition context (%s)",
5010 			   name, &e->where, context);
5015       /* Target must be allowed to appear in a variable definition context.  */
5018 	  if (context)
5020 		       " definition context (%s) at %L because its target"
5022 		       name, context, &e->where,
5060 			      if (context)
5064 						 "definition context (%s)",
5066 						 context);