blob: 1fd319c0d6dd7928f87d51e1f1491d5cf475b460 (
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)) STOP 1
if (c_sizeof(pointee) /= c_sizeof(x)*10) STOP 2
end
|
