coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git] / gcc / testsuite / gfortran.dg / transfer_resolve_4.f90
blob2dad63c7587631dea8a65f7ca0cf6bad6cd510d2
1 ! { dg-do compile }
3 ! PR fortran/47034
5 ! Contributed by James Van Buskirk
7 subroutine 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)
12 end