1! { dg-do compile } 2! 3! PR fortran/47034 4! 5! Contributed by James Van Buskirk 6! 7subroutine james 8 use iso_c_binding 9 type(C_PTR), parameter :: p1 = & 10 transfer(32512_C_INTPTR_T,C_NULL_PTR) 11 integer(C_INTPTR_T), parameter :: n1 = transfer(p1,0_C_INTPTR_T) 12end 13