Esempio n. 1
0
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_rvalue_reference() const
 {
     return (is_rvalue_reference_type(_type_info));
 }
 bool Type::is_any_reference() const
 {
     return (is_lvalue_reference_type(_type_info)
             || is_rvalue_reference_type(_type_info)
             || is_rebindable_reference());
 }