Minor changes to enable AD of Fortran. (rust-lang#295)

Author: ludgerpaehler

enzyme/Enzyme/AdjointGenerator.h

@@ -1014,10 +1014,20 @@ class AdjointGenerator
           diffe(&SI, Builder2), "diffe" + op2->getName());
 
     setDiffe(&SI, Constant::getNullValue(SI.getType()), Builder2);
-    if (dif1)
-      addToDiffe(orig_op1, dif1, Builder2, TR.addingType(size, orig_op1));
-    if (dif2)
-      addToDiffe(orig_op2, dif2, Builder2, TR.addingType(size, orig_op2));
+    if (dif1) {
+      Type *addingType = TR.addingType(size, orig_op1);
+      if (addingType || !looseTypeAnalysis)
+        addToDiffe(orig_op1, dif1, Builder2, addingType);
+      else
+        llvm::errs() << " warning: assuming integral for " << SI << "\n";
+    }
+    if (dif2) {
+      Type *addingType = TR.addingType(size, orig_op2);
+      if (addingType || !looseTypeAnalysis)
+        addToDiffe(orig_op2, dif2, Builder2, addingType);
+      else
+        llvm::errs() << " warning: assuming integral for " << SI << "\n";
+    }
   }
 
   void createSelectInstDual(llvm::SelectInst &SI) {
@@ -1710,8 +1720,12 @@ class AdjointGenerator
         }
       goto def;
     }
+    case Instruction::Mul:
+    case Instruction::Sub:
     case Instruction::Add: {
       if (looseTypeAnalysis) {
+        llvm::errs() << "warning: binary operator is integer and constant: "
+                     << BO << "\n";
         // if loose type analysis, assume this integer add is constant
         return;
       }

enzyme/Enzyme/GradientUtils.cpp

@@ -2509,12 +2509,12 @@ Value *GradientUtils::invertPointerM(Value *const oval, IRBuilder<> &BuilderM,
       Vals.push_back(cast<Constant>(
           invertPointerM(CD->getElementAsConstant(i), BuilderM)));
     }
-    return ConstantDataArray::get(CD->getContext(), Vals);
+    return ConstantArray::get(CD->getType(), Vals);
   } else if (auto CD = dyn_cast<ConstantArray>(oval)) {
     SmallVector<Constant *, 1> Vals;
     for (size_t i = 0, len = CD->getNumOperands(); i < len; i++) {
-      Vals.push_back(
-          cast<Constant>(invertPointerM(CD->getOperand(i), BuilderM)));
+      Value *val = invertPointerM(CD->getOperand(i), BuilderM);
+      Vals.push_back(cast<Constant>(val));
     }
     return ConstantArray::get(CD->getType(), Vals);
   } else if (auto CD = dyn_cast<ConstantStruct>(oval)) {