| ! { dg-do compile } | |
| ! | |
| ! PR fortran/47034 | |
| ! | |
| ! Contributed by James Van Buskirk | |
| ! | |
| subroutine james | |
| use iso_c_binding | |
| type(C_PTR), parameter :: p1 = & | |
| transfer(32512_C_INTPTR_T,C_NULL_PTR) | |
| integer(C_INTPTR_T), parameter :: n1 = transfer(p1,0_C_INTPTR_T) | |
| end |