12 lines · plain
1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3module bind_c_type4 use, intrinsic :: iso_c_binding5 6 type, bind(C) :: t7 type(c_ptr) :: tcptr = C_NULL_PTR8 end type9end module10 11! CHECK-LABEL: _QMbind_c_typeE.di.t.tcptr12 1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3module bind_c_type4 use, intrinsic :: iso_c_binding5 6 type, bind(C) :: t7 type(c_ptr) :: tcptr = C_NULL_PTR8 end type9end module10 11! CHECK-LABEL: _QMbind_c_typeE.di.t.tcptr12