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() {
60616061 if (!symbol) {
60626062 symbol = &MakeSymbol (name, ObjectEntityDetails{});
60636063 ApplyImplicitRules (*symbol);
6064- } else if (!ConvertToObjectEntity (* symbol)) {
6064+ } else if (!ConvertToObjectEntity (symbol-> GetUltimate () )) {
60656065 SayWithDecl (name, *symbol, " '%s' is not a variable" _err_en_US);
60666066 context ().SetError (*groupSymbol);
60676067 }
Original file line number Diff line number Diff line change @@ -11,6 +11,7 @@ subroutine C8103a(x)
1111 integer :: x
1212 ! ERROR: 'dupname' is already declared in this scoping unit
1313 namelist / dupName/ x, x
14+ namelist / nl/ uniquename ! ok
1415end subroutine C8103a
1516
1617subroutine C8103b (y )
You can’t perform that action at this time.
0 commit comments