1! { dg-do compile }
2!
3! PR fortran/56079
4!
5! Contributed by  Thomas Koenig
6!
7program gar_nichts
8   use ISO_C_BINDING
9   use ISO_C_BINDING, only: C_PTR
10   use ISO_C_BINDING, only: abc => C_PTR
11   use ISO_C_BINDING, only: xyz => C_PTR
12   type(xyz) nada
13   nada = transfer(C_NULL_PTR,nada)
14end program gar_nichts
15