gcc/testsuite/gfortran.dg/allocate_alloc_opt_12.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 45507: [4.6 Regression] Bogus Error: Can't convert TYPE(c_ptr) to INTEGER(4)
   4 !
   5 ! Contributed by Andrew Benson <abenson@its.caltech.edu>
   6
   7  use, intrinsic :: iso_c_binding
   8
   9  type :: cType
  10    type(c_ptr) :: accelPtr = c_null_ptr
  11  end type cType
  12
  13  type(cType), allocatable, dimension(:) :: filters
  14  class(cType), allocatable :: f
  15
  16  allocate(filters(1))
  17  allocate(f,MOLD=filters(1))
  18
  19 end