anchor.diff:  	expr :
   		( expr defined-binary-op ) ? level-5-expr
   	;
  +	scalar-expr :
  +		expr
  +	;
   
   /*
   	R723 defined-binary-op is . letter [ letter ] ... .
  
positive.code: 	or POINTER
  	or SAVE
  */
  
  /*
  	R1214 proc-decl is procedure-entity-name [ => proc-pointer-init ]
  */
  
  /*
  	R1215 interface-name is name
  */
  
  /*
  	R1216 proc-pointer-init is null-init
  	or initial-proc-target
  */
  
  /*
  	R1217 initial-proc-target is procedure-name
  */
  
  /*
  	R1218 intrinsic-stmt is INTRINSIC [ :: ] intrinsic-procedure-name-list
  */
  
  /*
  	R1219 function-reference is procedure-designator ( [ actual-arg-spec-list ] )
  */
  
  /*
  	R1220 call-stmt is CALL procedure-designator [ ( [ actual-arg-spec-list ] ) ]
  */
  
  /*
  	R1221 procedure-designator is procedure-name
  	or proc-component-ref
  	or data-ref % binding-name
  */
  
  /*
  	R1222 actual-arg-spec is [ keyword = ] actual-arg
  */
  
  /*
  	R1223 actual-arg is expr
  
negative.code: R822 end-do-stmt is END DO [ do-construct-name ]
  */
  	end-do-stmt :
  		END_DO NAME_LITERAL ?
  	;
  
  /*
  