blob: 127a24ab6a4ffd6ba5535ddfaac80b73dff08430 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
! { dg-do run }
! { dg-options "-fcray-pointer" }
!
use iso_c_binding
real target(10)
real pointee(10)
pointer (ipt, pointee)
integer(c_intptr_t) :: int_cptr
real :: x
if (c_sizeof(ipt) /= c_sizeof(int_cptr)) call abort()
if (c_sizeof(pointee) /= c_sizeof(x)*10) call abort()
end
|
