File tree Expand file tree Collapse file tree 2 files changed +9
-9
lines changed Expand file tree Collapse file tree 2 files changed +9
-9
lines changed Original file line number Diff line number Diff line change @@ -270,18 +270,18 @@ bool PointerAssignmentChecker::Check(const evaluate::FunctionRef<T> &f) {
270
270
std::optional<MessageFixedText> msg;
271
271
const auto &funcResult{proc->functionResult }; // C1025
272
272
if (!funcResult) {
273
- msg = " %s is associated with the non-existent result of reference to "
274
- " procedure" _err_en_US;
273
+ msg =
274
+ " %s is associated with the non-existent result of reference to procedure" _err_en_US;
275
275
} else if (CharacterizeProcedure ()) {
276
276
// Shouldn't be here in this function unless lhs is an object pointer.
277
- msg = " Procedure %s is associated with the result of a reference to "
278
- " function '%s' that does not return a procedure pointer" _err_en_US;
277
+ msg =
278
+ " Procedure %s is associated with the result of a reference to function '%s' that does not return a procedure pointer" _err_en_US;
279
279
} else if (funcResult->IsProcedurePointer ()) {
280
- msg = " Object %s is associated with the result of a reference to "
281
- " function '%s' that is a procedure pointer" _err_en_US;
280
+ msg =
281
+ " Object %s is associated with the result of a reference to function '%s' that is a procedure pointer" _err_en_US;
282
282
} else if (!funcResult->attrs .test (FunctionResult::Attr::Pointer)) {
283
- msg = " %s is associated with the result of a reference to function '%s' "
284
- " that is a not a pointer" _err_en_US;
283
+ msg =
284
+ " %s is associated with the result of a reference to function '%s' that is not a pointer" _err_en_US;
285
285
} else if (isContiguous_ &&
286
286
!funcResult->attrs .test (FunctionResult::Attr::Contiguous)) {
287
287
auto restorer{common::ScopedSet (lhs_, symbol)};
Original file line number Diff line number Diff line change @@ -139,7 +139,7 @@ subroutine s9
139
139
real , target :: x
140
140
real , pointer :: p
141
141
p = > f1()
142
- ! ERROR: pointer 'p' is associated with the result of a reference to function 'f2' that is a not a pointer
142
+ ! ERROR: pointer 'p' is associated with the result of a reference to function 'f2' that is not a pointer
143
143
p = > f2()
144
144
contains
145
145
function f1 ()
You can’t perform that action at this time.
0 commit comments