<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=utf-8"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
        {font-family:"Cambria Math";
        panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
        {font-family:Calibri;
        panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
        {margin:0cm;
        margin-bottom:.0001pt;
        font-size:11.0pt;
        font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
        {mso-style-priority:99;
        color:blue;
        text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
        {mso-style-priority:99;
        color:purple;
        text-decoration:underline;}
p.msonormal0, li.msonormal0, div.msonormal0
        {mso-style-name:msonormal;
        mso-margin-top-alt:auto;
        margin-right:0cm;
        mso-margin-bottom-alt:auto;
        margin-left:0cm;
        font-size:11.0pt;
        font-family:"Calibri",sans-serif;}
span.EmailStyle18
        {mso-style-type:personal-reply;
        font-family:"Arial",sans-serif;
        color:windowtext;
        font-weight:normal;
        font-style:normal;
        text-decoration:none none;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-size:10.0pt;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
        {page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=DE-CH link=blue vlink=purple><div class=WordSection1><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></p><div><p class=MsoNormal><font size=2 face=Calibri><span lang=EN-US style='font-size:11.0pt'>* </span></font><font face="Courier New"><span lang=EN-US style='font-family:"Courier New"'>MODULE M; (*test of the implementation of Oberon-07 as of 12.10.17*)<br>*     VAR</span></font><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'>*     p, q: ARRAY 10 OF INTEGER;<br>*     r, s: ARRAY 10 OF INTEGER;</span></font><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><font size=2 face="Courier New"><span lang=IT-CH style='font-size:11.0pt;font-family:"Courier New"'>*     e, f: PROCEDURE (i, j: INTEGER);<br>*     g, h: PROCEDURE (i, j: INTEGER);</span></font><span lang=IT-CH><o:p></o:p></span></p></div><div><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'>*   a, b: RECORD i, j: INTEGER END ;<br>*     c, d: RECORD i, j: INTEGER END ;</span></font><span lang=EN-US><o:p></o:p></span></p></div><div><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'>* BEGIN<br>*   p := q; (*ok -> same array types*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>I see it the same: allow<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'>*   p := r; (*ok -> structural equivalence suffices*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>Acc 9.1 only allowed for open array. So, I see this as compiler bug.<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>A hint why it is a compiler bug: If the structural equivalence was included in SAME, exception 4 mentioned in 9.1 would not be needed.<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>So, it is in my view wrong to include structural equivalence in SAME.<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New"'><br>*   e := f; (*ok -> same procedure types*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>I see it the same: allow<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'><br></span></font><font face="Courier New"><span lang=EN-US style='font-family:"Courier New"'>*   e := g; (*ok -> structural equivalence suffices*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>My interpretation of 6.5: only allowed it for (const) P. A “g” is a variable, I would not allow.<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'> <br></span></font><font face="Courier New"><span lang=EN-US style='font-family:"Courier New"'>*   a := b; (*ok -> same record types*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>I see it the same: allow<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face="Courier New"><span lang=EN-US style='font-size:11.0pt;font-family:"Courier New";color:#4472C4'><br></span></font><font face="Courier New"><span lang=EN-US style='font-family:"Courier New"'>*   a := c  (*illegal assignment -> no structural equivalence for records*)<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>I see it the same, don’t allow<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'><o:p> </o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>br<o:p></o:p></span></font></p><p class=MsoNormal><font size=2 color="#4472c4" face=Arial><span lang=EN-US style='font-size:11.0pt;font-family:"Arial",sans-serif;color:#4472C4'>Jörg.<o:p></o:p></span></font></p></div><div><p class=MsoNormal><font size=2 color="#4472c4" face=Calibri><span style='font-size:11.0pt;color:#4472C4'><o:p> </o:p></span></font></p></div></div></body></html>