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

    <tr>
        <th>Summary</th>
        <td>
            [Flang] Compilation error of using %VAL for an actual argument
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            flang,
            llvm:ir
      </td>
    </tr>

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

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

<pre>
    ```
Version of flang : 20.0.0(590f451b60d434b26c634a07125fb05baf461fa0)/AArch64
```

Using `%VAL (which specifies that the actual argument should be passed by value)` for an `actual argument` results in a compilation error (`LLVM IR failed`).

The following are the test program, Flang, Gfortran and ifx compilation/execution result.

snggf047_22.f90:
```fortran
program main
  logical::a1
  data a1/.true./
  call sa(%val(a1))
  write(6,*) "a1 = ", a1
end program main

subroutine sa(x1)
  logical::x1
end subroutine sa
```

```
$ flang snggf047_22.f90
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/MCS/v3f/snggf047_22.f90":4:3): unsupported types for logical conversion: 'i32' -> '!llvm.ptr'
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/MCS/v3f/snggf047_22.f90":4:3): failed to legalize operation 'fir.convert'
error: Lowering to LLVM IR failed
error: loc("/work/home/ohno/CT/test/fort/tp/reproducerJ/MCS/v3f/snggf047_22.f90":1:1): cannot be converted to LLVM IR: missing `LLVMTranslationDialectInterface` registration for dialect for op: func.func
error: failed to create the LLVM module
$
```

```
$ gfortran snggf047_2.f90; ./a.out
 a1 = T
$
```

```
$ ifx snggf047_2.f90; ./a.out
 a1 =  T
$
```

</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJzEVU2PpDYQ_TXVl9IgU3x0c-gDOxOijWYvyWSvkYEyeOPGyDY9s_n1kYHRzvQqyt5Wohvb2FXvlateSe_1MDGfofgAxcNBLmG07mzHyd6pL4fW9l_PUIr9EfVndl7bCa1CZeQ0IGQ1kkhEIoBORSVUXqRtKfo8y1squzLLpTimVKhWFK1UeZkqKYAqoKauXTeWOYj6rQcQ9Z9eR8ulACo-148IdHoedTein7nTSrPHMMqAYWSUXVikQemG5cJTQD_axfTYMs7Se-6x_YpXaRaOPkuByjqUUzR-czJ-dOwXEzzqCSV29jJrI0Oky85ZF3FAKR4fP3_Cj7-jktpwv6Kskg3408iorDH2ORKQjleIgX3A2dnByQvQPTYxcHHwq7IuODmhnHrU6uWtS6CGX7hbVvcbrt2Jn4ZBifz4F1GiKgFZ_TaCu0kQ9e4RL1LHKaKxg-6kiQeyWqbrWi-DRJkCNUlwCydAzbreSWPQy8iYiqs0QKe4q4pP_P7sdGCgUwl0D1QDVQhEMkXIHuIo0ltd8NTjDZLIYWmdXYKeeHPykr4afgfy5dXC-_3fJcy7KeV7at4GStTrNcaMNbZbqRFQ82zd30DNaC8M1MTMB2run4CaeHFATQxpnM1AjePZ2X7p2P0G1Hy6_wOouWYKqLn1RgRZnUNWZ5FaVuMy-WWerQvcY_g6s19zceeLnZ2uW23FvUBHnRHQEe8g-yVOgVJjrpdkDi7OfjKXLfcxWDQ8SKP_YbQzu61YgI5Ku2RjFG7QPtpndrE6gsWbSvoJnNL1t3Hq5DTZEJVjR74R3EHGHRftX5Uprj45OfmtWh-0NNyFj1Ngp2THm5gM2oc9JvGq-23TOrbzGsZl6pL495b7t9h2jmXYNGRFcbH9YnjL8f8vguFVXb4x3_TiA8Yyl4ldQiy5vWifftRuFKofM_kfNg_9OeurrJIHPqfHLEsFleXxMJ5Vnp9UxUWXyoKkyhVXVMnsdGSR9tWpOOgzCcpTEiRSyumYZLIXRStU24q-7coScsEXqU2y1op1w0F7v_A5TU-UVQcjWzZ-7XVEapNhWhWM4gHIau3iSvFwcOe4ctcug4dcGO2D_2Y06GDWlrlJefGA9981C6tw2bJla2J747npOofFmfMYwuyj4lED1Aw6jEubdPYC1Kywttfd7OwX7mKqr6Q8ULPzup7p3wAAAP__tAJWeg">