<table border="1" cellspacing="0" cellpadding="8">
<tr>
<th>Issue</th>
<td>
<a href=https://github.com/llvm/llvm-project/issues/101207>101207</a>
</td>
</tr>
<tr>
<th>Summary</th>
<td>
flang link failure when calling exp intrinsic with quad precision
</td>
</tr>
<tr>
<th>Labels</th>
<td>
flang
</td>
</tr>
<tr>
<th>Assignees</th>
<td>
</td>
</tr>
<tr>
<th>Reporter</th>
<td>
ajmay81
</td>
</tr>
</table>
<pre>
Reproducer:
```
program test
implicit none
integer, parameter :: qp = selected_real_kind(30)
real(qp) :: qvar
qvar=1.0_qp
write(6,*)exp(qvar)
end program test
```
results in:
```
> flang-new test.f90
./test.f90:7:11: warning: exp(real(kind=16)) cannot be folded on host
write(6,*)exp(qvar)
^^^^^^^^^
/usr/lib64/gcc/x86_64-suse-linux/13/../../../../x86_64-suse-linux/bin/ld: /tmp/test-81af64.o: in function `_QQmain':
FIRModule:(.text+0x87): undefined reference to `_FortranAExpF128'
flang-new: error: linker command failed with exit code 1 (use -v to see invocation)
```
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyMU82uozgTfRpnUwoyZcLPgkW6c5G-xbfofoHImIK429hc2yTptx8Z7s1I09PSSBaYY_tQ5_iUDEFPlqhlpy_sdDnINd6cb-WPWf6q80Pvhl_td1q8G1ZFnokz4xfGz6zkH2P7XLybvJwhUog7oufFaKUjWGfpA7KRJvIMv8IivZwpkofEKM7wvgATFwhkSEUarp6kuf7UdmBYC86w2SkSzLB-Xxg2r6N36ffVbSYuecav78sOPbyOxLAuGX5leGbY0HNJDGnrJyvZAX5X8A-JnsJqYgBt_2QCE28wGmmno6XHRpSNDYd9MWPYfUJMnCsmznmeyn9Ib7Wd0nQv7UPjJl5c8jKViQ0oaa2L0BOMzgw0gLNwc5_Fwn8SCuz09sexa8BuDZ5hZ3RfFgy7SSmG3bMur2VxDGugo9F2fTLscsGwy7LfH_-2udc2kQ5JZnJiXj78ONa5HMsic2lFWxhXq6J2FljJr9--zTIdrF6Wd__7_n83rIYSgnUW6RkZfuHPukoqxRlWO9CoLQ3gaSRPVhFEt9F1zkcv7fntuXQ51ol3I31d2nYJ3ruUczDa_iQPys2ztAOMUhsa4KHjDeipIyg3EOTAsF4DwfGe_hKIQNu7UzJpePn-CsphaMXQiEYeqM0rRFFyPBWHW8tPFRdVXfaiQtHUQvWIPQpxarDvx0IedIscC14JnldY5CLDpiFV5ryQSuSiKlnBaZbaZMbc58z56aBDWKnNeY68OhjZkwlblyNughlianjfpgPHfp0CK7jRIYa_KaKOhtpt--bH5sLqCR43sqCkMdpOKbegbfTaBq12h95XmXqKlA7a2cPqTXuLcQnbtXUpVzre1j5Tbk65MPfP13Hx7gepyLDb6g8pabuEe4t_BQAA__-xpGRm">