parameter passing for replaceable models does not work

[Fritz Zaversky]

Here the test:

In the final test model Test3 the parameter a should be 1 for all three cases.  But it is 10 in the second case.

model ModelA 
 parameter Real a = 10;
end ModelA; 

model ModelB 
 replaceable model Model = ModelA;
 Model m; 
end ModelB; 
  
model Test3 
 model ModelA1 = ModelA(final a =  1 );
 ModelB b(redeclare model Model = ModelA(a = 1)); 
 // m.a == 1

 ModelB b1(redeclare model Model = ModelA1);
 // m.a == 10

 ModelA1 a;                                       
 // a.a == 1 
 end Test3;