File tree Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Expand file tree Collapse file tree 2 files changed +4
-4
lines changed Original file line number Diff line number Diff 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) {
Original file line number Diff line number Diff line change 88! ERROR: Cray pointee 'v' may not be initialized
99real :: v = 42.0
1010pointer (p,v)
11- ! ERROR: Cray pointee 'u' may not be SAVE
11+ ! ERROR: Cray pointee 'u' may not have the SAVE attribute
1212save u
1313pointer (p, u)
1414end
You can’t perform that action at this time.
0 commit comments