Skip to content

Commit ece1e45

Browse files
committed
address feedback
1 parent 15f0033 commit ece1e45

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

flang/lib/Semantics/check-declarations.cpp

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -968,10 +968,10 @@ void CheckHelper::CheckObjectEntity(
968968
if (details.init()) {
969969
messages_.Say(
970970
"Cray pointee '%s' may not be initialized"_err_en_US, symbol.name());
971-
} else if (symbol.attrs().test(Attr::SAVE) ||
972-
symbol.implicitAttrs().test(Attr::SAVE)) {
971+
} else if (symbol.attrs().test(Attr::SAVE)) {
973972
messages_.Say(
974-
"Cray pointee '%s' may not be SAVE"_err_en_US, symbol.name());
973+
"Cray pointee '%s' may not have the SAVE attribute"_err_en_US,
974+
symbol.name());
975975
}
976976
}
977977
if (derived) {

flang/test/Semantics/declarations08.f90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
88
!ERROR: Cray pointee 'v' may not be initialized
99
real :: v = 42.0
1010
pointer(p,v)
11-
!ERROR: Cray pointee 'u' may not be SAVE
11+
!ERROR: Cray pointee 'u' may not have the SAVE attribute
1212
save u
1313
pointer(p, u)
1414
end

0 commit comments

Comments
 (0)