Create emboxchar

Author: EbinJose2002

flang/lib/Optimizer/HLFIR/Transforms/BufferizeHLFIR.cpp

@@ -446,8 +446,17 @@ struct AssociateOpConversion
             ((mlir::isa<fir::BoxCharType>(sourceVar.getType()) &&
               !mlir::isa<fir::BoxCharType>(assocType)))) {
           sourceVar = builder.create<fir::BoxAddrOp>(loc, assocType, sourceVar);
-        } else if (!mlir::isa<fir::ReferenceType>(sourceVar.getType()) ||
-                   !mlir::isa<fir::BoxCharType>(assocType)) {
+        } else if (mlir::isa<fir::ReferenceType>(sourceVar.getType()) &&
+                   mlir::isa<fir::BoxCharType>(assocType)) {
+          auto refTy = mlir::cast<fir::ReferenceType>(sourceVar.getType());
+          auto charTy = mlir::dyn_cast<fir::CharacterType>(refTy.getEleTy());
+          mlir::Value lenVal = builder.createIntegerConstant(
+              loc, builder.getCharacterLengthType(), charTy.getLen());
+          auto boxCharType =
+              fir::BoxCharType::get(builder.getContext(), charTy.getFKind());
+          sourceVar = builder.create<fir::EmboxCharOp>(loc, boxCharType,
+                                                       sourceVar, lenVal);
+        } else {
           sourceVar = builder.createConvert(loc, assocType, sourceVar);
         }
         return sourceVar;