File tree 1 file changed +2
-2
lines changed 1 file changed +2
-2
lines changed Original file line number Diff line number Diff line change @@ -1095,7 +1095,7 @@ R"(#include <stdio.h>
1095
1095
break ;
1096
1096
}
1097
1097
case (ASR::cast_kindType::LogicalToCharacter) : {
1098
- src = src + " ? \" True\" : \" False\" " ;
1098
+ src = src + " ? \" True\" : \" False\" " ;
1099
1099
break ;
1100
1100
}
1101
1101
case (ASR::cast_kindType::IntegerToLogical) : {
@@ -1116,13 +1116,13 @@ R"(#include <stdio.h>
1116
1116
break ;
1117
1117
}
1118
1118
case (ASR::cast_kindType::CharacterToLogical) : {
1119
-
1120
1119
src = " (bool)(strlen(" + src + " ) > 0)" ;
1121
1120
break ;
1122
1121
}
1123
1122
case (ASR::cast_kindType::ComplexToLogical) : {
1124
1123
src = " (bool)(" + src + " )" ;
1125
1124
break ;
1125
+ }
1126
1126
case (ASR::cast_kindType::IntegerToCharacter) : {
1127
1127
ASR::ttype_t * src_type = ASRUtils::expr_type (x.m_arg );
1128
1128
int src_kind = ASRUtils::extract_kind_from_ttype_t (src_type);
You can’t perform that action at this time.
0 commit comments