view gcc/testsuite/gfortran.dg/transfer_resolve_2.f90 @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 04ced10e8804
children
line wrap: on
line source

! { dg-do compile }
!
! PR fortran/56079
!
! Contributed by  Thomas Koenig
!
program gar_nichts
   use ISO_C_BINDING
   use ISO_C_BINDING, only: C_PTR
   use ISO_C_BINDING, only: abc => C_PTR
   use ISO_C_BINDING, only: xyz => C_PTR
   type(xyz) nada
   nada = transfer(C_NULL_PTR,nada)
end program gar_nichts