blob: 5cc3855029427f60970e47ba58a71871f6a9b66e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
! { dg-do run }
!
! PR fortran/35983
! C_LOC expanded to a NULL_PTR expr if called from a structure constructor
!
! Contributed by François-Xavier Coudert
program main
use ISO_C_BINDING
implicit none
type, bind(C) :: descr
type(C_PTR) :: address
end type descr
type(descr) :: DD
double precision, target :: buf(1)
integer (C_INTPTR_T) :: i, j
buf = (/ 0 /)
DD = descr(c_loc(buf))
i = transfer (DD%address, 0_c_intptr_t)
j = transfer (c_loc(buf), 0_c_intptr_t)
if (any((/ i,j /) == 0_c_intptr_t)) call abort
if (i /= j) call abort
end program main
|
