<html 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:12.0pt;
        font-family:"Calibri",sans-serif;
        mso-fareast-language:EN-US;}
span.EmailStyle17
        {mso-style-type:personal-compose;
        font-family:"Calibri",sans-serif;
        color:windowtext;}
.MsoChpDefault
        {mso-style-type:export-only;
        font-family:"Calibri",sans-serif;
        mso-fareast-language:EN-US;}
@page WordSection1
        {size:612.0pt 792.0pt;
        margin:72.0pt 72.0pt 72.0pt 72.0pt;}
div.WordSection1
        {page:WordSection1;}
--></style>
</head>
<body lang="EN-GB" link="#0563C1" vlink="#954F72">
<div class="WordSection1">
<p class="MsoNormal"><span style="font-size:11.0pt">Hey you all,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">Me again, this time I have problem to check when a derived type is being defined.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">I would like to check when inside BlockData if a symbol is a derived type being defined.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">The function CheckDerivedTypeDefinition should check if a new declaration type is being defined.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">void ResolveNamesVisitor::CheckDerivedTypeDefinition() {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">  for (auto &pair : currScope()) {<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">    auto &symbol{*pair.second};<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">    if (currScope().kind() == Scope::Kind::BlockData){<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">      if (symbol.has<AssocEntityDetails>() || GetDeclTypeSpec()){ 
<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">           Say(symbol.name(),<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">            "'%s' is declaration type definition"_err_en_US);<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">       }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">    }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">  }<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">}<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">I image these ones only check if the type is a derived type or if it has a type defined<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">currScope().IsDerivedType() || symbol.GetType()<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">but not a derived type declaration<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">I can see there is a method:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">void ConstructVisitor::Post(const parser::TypeGuardStmt::Guard &x)<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">Is this one checking when a derived type is being defined?<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">I believe this is allowed inside BlockData:<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">block data bdderivedtype<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">type mytype<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">   integer:: i<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">end type mytype<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">  type (mytype)  var<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">end block data<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">PS.: I’ve created the Scope::Kind::BlockData, as it was not defined yet and I needed to make the semantic checks.<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">Thank you,<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt">Carol<o:p></o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
<p class="MsoNormal"><span style="font-size:11.0pt"><o:p> </o:p></span></p>
</div>
</body>
</html>