<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/77875>77875</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
[Flang] pointer assignment inside FORALL is not implemented
</td>
</tr>
<tr>
<th>Labels</th>
<td>
flang:frontend
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
kiranktp
</td>
</tr>
</table>
<pre>
Here is the reproducer:
Program test_forall_pointer_asgn
Integer, Target :: tgt(5)
Type t
Integer, Pointer::ptr
End Type t
Type(t) :: pt(5)
Forall(i=1:5)
pt(i)%ptr => tgt(i)
End Forall
Do i=1,5
Print *, Associated(pt(i)%ptr ,tgt(i))
End Do
End Program test_forall_pointer_asgn
$ flang-new repro.F90
error: loc("/home/Tickets/llvm-flang/repro.F90":8:6): /home/llvm-project/flang/lib/Lower/Bridge.cpp:3592: not yet implemented: pointer assignment inside FORALL
LLVM ERROR: aborting
Not sure if I should be creating tickets for unimplemented features. for tracking purpose I have created this ticket.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyMVMFupDgQ_RpzKU0LytDAgQMTgjZS704URXuNDFSDN7SN7GJG-fuVoVvpmTnsXhC2672qeq9s5b0eDVElsq8iayK18mRd9a6dMu-8RJ0dPqo_yBFoDzwROFqcHdaenJC1iBsRX7_Pzo5OXYDJ89vZOjXPb4vVhsm9KT-aPQrgyTCN5AQ-wKtyIzEEIlkDjyywyASWt9DXj4WAbyv4Cfu8U-_Yhd0t6tEMv-DCSmDBAstbquXXTO1Wr8BCC9kkQtb3hwA7QIc9zBZ2IGQj5OO1ZP0ZG7Jfua7gxsLOiQ_ZHeGz04ZBYB16qb23vVZMg8Dit1T4cJfmp0yN3Rfh___Jf_1iCudZmfGLoR-7o4e2jPdDcs4GWWG2vcBCIApsJ3shge2r7t-JvcB2nr9fvmwcAttPBkQh60LI-hgqlTV8YjfE4uw_1LPA9oaddSewPdkfwdb2q9PDSId-WYSsZVYGOjCW4YMY9GWZ6UIm6BRM3LuDfYTDPmjj9UDQfnupT6e9ndPp7z_h8eXl20vAqM461ma8V-Mvy-DXMOFneAI_2XUeoCPoHakQC7x3DWfrYDV3VcCZFK-O_GE7Y6f69wBYVrdYT_AEk_p-JaIBeAp3aCM7REMlh1KWKqIqyeMslnkui2iq4jQpZX8sFPWpOuZplxSJzMthSGOi9HiMdIUxpnGSYJzJTBaHDmOlkrIsMC2TsstEGtNF6fkQFD9YN0ba-5WqPC_yLJpVR7PfrjviboKsz84aJjME_7ImctVmVreOXqTxrD37TzLWPG_PRbuBs-Y_jQhPR_DwTrlodXM1MS8-3EhsBbaj5mntDr29XIfl95nZ-gjTt7XybwAAAP__vgt0pg">