anchor.diff:   !    module procedure occaDeviceManagedUvaAlloc_real8
    !    module procedure occaDeviceManagedUvaAlloc_char
    ! end interface occaDeviceManagedUvaAlloc
  -
  -    ! integer(4), intent(in) :: v
  -
  -    ! interface
  -    !   subroutine occaInt32_fc(t, v)
  -    !     use occaFTypes_m
  -    !     implicit none
  -    !     type(occaMemory), intent(out) :: t
  -    !     integer(4),       intent(in)  :: v
  -    !   end subroutine occaInt32_fc
  -    ! end interface
  -
  -    ! call occaInt32_fc(t, v)
   
    interface occaDeviceTextureAlloc
       module procedure occaDeviceTextureAlloc_func
  
positive.code:   use ISO_C_BINDING
  
    implicit none
  
    public ::                          &
      occaTypeMem_t,                   &
      occaSetVerboseCompilation,       &
      occaPrintAvailableDevices,       &
      occaDeviceSetCompiler,           &
      occaDeviceSetCompilerFlags,      &
      occaCreateDevice,                &
      occaDeviceBytesAllocated,        &
      occaDeviceBuildKernel,           &
      occaDeviceBuildKernelFromSource, &
      occaDeviceBuildKernelFromString, &
      occaDeviceBuildKernelFromBinary, &
      occaDeviceBuildKernelFromLoopy,  &
      occaDeviceBuildKernelFromFloopy, &
      occaDeviceMalloc,                &
      ! occaDeviceManagedAlloc,        &
      ! occaDeviceUvaAlloc,            &
      ! occaDeviceManagedUvaAlloc,     &
      occaDeviceTextureAlloc,          &
      ! occaDeviceManagedTextureAlloc, &
      occaDeviceMappedAlloc,           &
      ! occaDeviceManagedMappedAlloc,  &
      occaDeviceFlush,                 &
      occaDeviceFinish,                &
      occaDeviceCreateStream,          &
      occaDeviceGetStream,             &
      occaDeviceSetStream,             &
      occaDeviceTagStream,             &
      occaDeviceTimeBetweenTags,       &
      occaDeviceStreamFree,            &
      occaDeviceFree,                  &
      occaKernelPreferredDimSize,      &
      occaKernelSetAllWorkingDims,     &
      occaCreateArgumentList,          &
      occaArgumentListClear,           &
      occaArgumentListFree,            &
      occaArgumentListAddArg,          &
      occaKernelRun,                   &
      occaKernelRun_,                  &
      occaKernelFree,                  &
      occaCreateDeviceInfo,            &
      occaDeviceInfoAppend,            &
      occaDeviceInfoFree,              &
      occaCreateKernelInfo,            &
      occaKernelInfoAddDefine,         &
      occaKernelInfoAddInclude,        &
      occaKernelInfoFree,              &
      occaDeviceWrapMemory,            &
      occaDeviceWrapStream,            &
      occaCopyMemToMem,                &
      occaCopyPtrToMem,                &
      occaCopyMemToPtr,                &
      occaAsyncCopyMemToMem,           &
      occaAsyncCopyPtrToMem,           &
      occaAsyncCopyMemToPtr,           &
      occaMemoryFree
  
    integer(C_INT), bind(C, name="occaUsingOKL")    :: occaUsingOKL
    integer(C_INT), bind(C, name="occaUsingOFL")    :: occaUsingOFL
  
negative.code:     end subroutine occaMemoryFree_fc
    end interface occaMemoryFree
  
  contains !||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
  
  ! ---[ TypesCasting ]------------------
    type(occaMemory) function occaTypeMem_int4_c(v) result(t)
      integer(4), intent(in) :: v
  
  