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