char fortran_is_scalar_type(type_t* t) { return (!is_pointer_type(t) && !is_pointer_to_member_type(t) && !is_array_type(t) && !is_lvalue_reference_type(t) && !is_rvalue_reference_type(t) && !is_function_type(t) && !is_vector_type(t)); }
bool Type::is_pointer_to_member() const { return is_pointer_to_member_type(_type_info); }