| Issue |
83311
|
| Summary |
[Flang] BIND(C): Passing C_LONG_DOIUBLE does not work
|
| Labels |
bug,
flang:ir
|
| Assignees |
|
| Reporter |
DanielCChen
|
C code:
```
#include <stdio.h>
void subc(long double pi )
{
printf("in subc pi = %Lf\n", pi);
}
```
Fortran code:
```
use, intrinsic :: iso_c_binding
real(c_long_double) :: r1 = 3.1416
interface
subroutine sub(p) bind(c, name='subc')
import
real(c_long_double), intent(in), value :: p
end
end interface
call sub(r1)
end
```
Flang currently produces:
```
> a.out
in subc pi = 0.00000
```
![]()
_______________________________________________
llvm-bugs mailing list
[email protected]
https://lists.llvm.org/cgi-bin/mailman/listinfo/llvm-bugs
