Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 44925: [OOP] C_LOC with CLASS pointer
!
! Contributed by Barron Bichon <barron.bichon@swri.org>

  use iso_c_binding

  type :: t
  end type t

  type(c_ptr) :: tt_cptr
  class(t), pointer :: tt_fptr
  if (associated(tt_fptr)) tt_cptr = c_loc(tt_fptr)  ! { dg-error "shall not be polymorphic" }

end