<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/108898>108898</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            [Flang] association specified in association-list of associate construct does not execute correctly
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          ohno-fj
      </td>
    </tr>
</table>

<pre>
    ```
Version of flang-new : 20.0.0(1cc4c87198ec0c6febca3f6ed03357e9e091cfd4)/AArch64
```

`association` specified in `association-list` of `associate` construct does not execute correctly.  
In the attached program, when all `association` in `associate` construct are evaluated, a, b, and c in `associate-name` are expected to be equal to 4.

The following are the test program, Flang-new, Gfortran and ifort compilation/execution result.

242_.f90:
```fortran
program main
  integer :: a = 3
  a = a - 1
  associate(a=>4,b=>a,c=>b)
    print *,a
    print *,b
    print *,c
  end associate
end program main
```

```
$ flang-new 242_.f90; ./a.out
 4
 2
 -2.941608E-39
$
```

```
$ gfortran 242_.f90; ./a.out
 4
           2
  -8.15272589E+24
$
```

```
$ ifort -diag-disable=10448 242_.f90; ./a.out
           4
           2
 2
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyUVE-Po7gT_TTOpQQyBUnwgUO60_npd1_tdWVMAR45dtY23TPffmUg6STzRzMoCvYzrveqXH4yBD1YooZtX9j2uJFTHJ1v3Ghd1n_ZtK771rAdX3_8yPjhb_JBOwuuh95IO2SWPoCVB0Ce85wzrAulKlXvC1GT4mrXU6tk2e-o42W53ZMgLgrVdxVDwfB0OHg17qol-BPXDZQhOKVl1M6yHYdwIaV7TR1oC4_LmdEhpm9cf79CCVLOhugnFaFzFMC6CPSV1BQJlPOeVDTfcoCF9f8W4kggY5RqpA4u3g1enhm-wsdIFqQx8L2yRz1PrNIT0Ls0k4zUpUAy_bXzyHagnndnVp7nEPPGrxdSkTqIDloC-neSJo2r_L5Wf40EvTPGfWg7zPtSEpFCvE_gdD24NPlf73z00s4adJqAcueLNktSeFpqlM7cU5hMfCDECv_Je8FZeXg6wjXsgq7kcJZ6RQC0jTSQT82T-kcCK49QXleXqYQMiht0KyvWkpVHVr5VDF_bZZiKqZZhm1pr3QRw8dpGYHhg-Cp_DLc_htUVJtvdsc9ggr7P6mcN_ABidXd1Pgv4AjnDk8zdFFfe9VYAru8Mc1EVO16_ZaW4Bfsz5uF63L9D_PlcJUBW58UW97itxRvDlxv9n-pYOi3rtByyTgfZGmLlseBVVf9S2ufzc5H4a02brik7UQq5oabY426L-2pfb8amon27L2olRI1dIVHULWIlFBZFUVFVb3SDHCsuih3idr-tc9GXHAUvqOBl19YFqzidpTa5Me_n3Plho0OYqCl4XYt6Y2RLJsxuizj3AENMxuubtCFrpyGwiicPC58hoo5mtuj53rLtEe5c59EMn50w2eCtcX_LADeTN80Y4yWke4knhqdBx3Fqc-XODE9J1frKLt59IRUZnuYsA8PTmuh7g_8FAAD__0lVzmQ">