File tree Expand file tree Collapse file tree 2 files changed +2
-1
lines changed Expand file tree Collapse file tree 2 files changed +2
-1
lines changed Original file line number Diff line number Diff line change @@ -6061,7 +6061,7 @@ void DeclarationVisitor::FinishNamelists() {
6061
6061
if (!symbol) {
6062
6062
symbol = &MakeSymbol (name, ObjectEntityDetails{});
6063
6063
ApplyImplicitRules (*symbol);
6064
- } else if (!ConvertToObjectEntity (* symbol)) {
6064
+ } else if (!ConvertToObjectEntity (symbol-> GetUltimate () )) {
6065
6065
SayWithDecl (name, *symbol, " '%s' is not a variable" _err_en_US);
6066
6066
context ().SetError (*groupSymbol);
6067
6067
}
Original file line number Diff line number Diff line change @@ -11,6 +11,7 @@ subroutine C8103a(x)
11
11
integer :: x
12
12
! ERROR: 'dupname' is already declared in this scoping unit
13
13
namelist / dupName/ x, x
14
+ namelist / nl/ uniquename ! ok
14
15
end subroutine C8103a
15
16
16
17
subroutine C8103b (y )
You can’t perform that action at this time.
0 commit comments