maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Improve error message (initialized variable in pure subprogram) 

When variable with the SAVE attribute appears in a pure subprogram,
emit a more specialized error message if the SAVE attribute was acquired
from static initialization.

Differential Revision: https://reviews.llvm.org/D117699
This commit is contained in:
Peter Klausler 2022-01-11 11:01:12 -08:00
parent 28d718602a
commit 2985d5623c
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
flang/lib/Semantics/check-declarations.cpp
View File

@ -237,9 +237,14 @@ void CheckHelper::Check(const Symbol &symbol) {
}
if (InPure()) {
if (IsSaved(symbol)) {
if (IsInitialized(symbol)) {
messages_.Say(
"A pure subprogram may not initialize a variable"_err_en_US);
} else {
messages_.Say(
"A pure subprogram may not have a variable with the SAVE attribute"_err_en_US);
}
}
if (symbol.attrs().test(Attr::VOLATILE)) {
messages_.Say(
"A pure subprogram may not have a variable with the VOLATILE attribute"_err_en_US);

6
flang/test/Semantics/call10.f90
View File

@ -85,9 +85,9 @@ module m
pure subroutine s05 ! C1589
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
real, save :: v1
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
!ERROR: A pure subprogram may not initialize a variable
real :: v2 = 0.
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
!ERROR: A pure subprogram may not initialize a variable
real :: v3
data v3/0./
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
@ -97,7 +97,7 @@ module m
block
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
real, save :: v5
!ERROR: A pure subprogram may not have a variable with the SAVE attribute
!ERROR: A pure subprogram may not initialize a variable
real :: v6 = 0.
end block
end subroutine