Don't create extra scode at the entry to DATA statement:

	modified:   lib/Semantics/resolve-names.cpp

Adjusted the test to the new behavior of implied-DO loops in DATA statements:

	modified:   test/Semantics/resolve40.f90

Author: eugeneepshteyn

flang/lib/Semantics/resolve-names.cpp

@@ -7521,9 +7521,9 @@ bool ConstructVisitor::Pre(const parser::DataStmtObject &x) {
             }
           },
           [&](const parser::DataImpliedDo &y) {
-            PushScope(Scope::Kind::ImpliedDos, nullptr);
+            // Don't push scope here, since it's done when visiting
+            // DataImpliedDo.
             Walk(y);
-            PopScope();
           },
       },
       x.u);

flang/test/Semantics/resolve40.f90

@@ -69,8 +69,8 @@ subroutine s8
 
 subroutine s9
   real :: x(2,2)
-  !ERROR: 'i' is already declared in this scoping unit
-  data ((x(i,i),i=1,2),i=1,2)/4*0.0/
+  ! Nested implied DO loops have their own scope
+  data ((x(i,j),j=1,2),(x(i,j),j=1,2),i=1,2)/8*0.0/
 end
 
 module m10