File tree 2 files changed +4
-4
lines changed
2 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -968,10 +968,10 @@ void CheckHelper::CheckObjectEntity(
968
968
if (details.init ()) {
969
969
messages_.Say (
970
970
" 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)) {
973
972
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 ());
975
975
}
976
976
}
977
977
if (derived) {
Original file line number Diff line number Diff line change 8
8
! ERROR: Cray pointee 'v' may not be initialized
9
9
real :: v = 42.0
10
10
pointer (p,v)
11
- ! ERROR: Cray pointee 'u' may not be SAVE
11
+ ! ERROR: Cray pointee 'u' may not have the SAVE attribute
12
12
save u
13
13
pointer (p, u)
14
14
end
You can’t perform that action at this time.
0 commit comments