<html>
    <head>
      <base href="https://bugs.llvm.org/">
    </head>
    <body><table border="1" cellspacing="0" cellpadding="8">
        <tr>
          <th>Bug ID</th>
          <td><a class="bz_bug_link 
          bz_status_NEW "
   title="NEW - Expected compile time error is not coming for Select type and Associate Construct"
   href="https://bugs.llvm.org/show_bug.cgi?id=47339">47339</a>
          </td>
        </tr>

        <tr>
          <th>Summary</th>
          <td>Expected compile time error is not coming for Select type and Associate Construct
          </td>
        </tr>

        <tr>
          <th>Product</th>
          <td>flang
          </td>
        </tr>

        <tr>
          <th>Version</th>
          <td>trunk
          </td>
        </tr>

        <tr>
          <th>Hardware</th>
          <td>PC
          </td>
        </tr>

        <tr>
          <th>OS</th>
          <td>Linux
          </td>
        </tr>

        <tr>
          <th>Status</th>
          <td>NEW
          </td>
        </tr>

        <tr>
          <th>Severity</th>
          <td>enhancement
          </td>
        </tr>

        <tr>
          <th>Priority</th>
          <td>P
          </td>
        </tr>

        <tr>
          <th>Component</th>
          <td>Frontend
          </td>
        </tr>

        <tr>
          <th>Assignee</th>
          <td>unassignedbugs@nondot.org
          </td>
        </tr>

        <tr>
          <th>Reporter</th>
          <td>Inderjeet_kalra@hcl.com
          </td>
        </tr>

        <tr>
          <th>CC</th>
          <td>David.Truby@arm.com, jperier@nvidia.com, kirankumartp@gmail.com, llvm-bugs@lists.llvm.org, sscalpone@nvidia.com
          </td>
        </tr></table>
      <p>
        <div>
        <pre>Following test case should generate compile time error for invalid selector at
line #4 and #9 :

R1105 selector is expr
                  or variable 
C1103 (R1105) variable shall not be a coindexed object.

[root@localhost flang]# cat -n /root/LLVM/selecttype_coarray.f90
     1  class(*),allocatable :: calc[:]
     2  integer :: icoa[*]
     3  
     4  associate(sel=>icoa[2])
     5  end associate
     6  
     7  icoa = 2
     8  allocate(integer::calc[*])
     9  select type(sel=>calc[2])
    10   type is(integer)
    11    sel = 2
    12  end select
    13  end

Solution:
I have modified resolve-names.cpp to add required checks. I will upload
modified file/test case for review in differential once the bug is accepted.</pre>
        </div>
      </p>


      <hr>
      <span>You are receiving this mail because:</span>

      <ul>
          <li>You are on the CC list for the bug.</li>
      </ul>
    </body>
</html>