[flang] Fix name of dummy argument to intrinsic NEW_LINE(A='')

[klausler]

Summary

It should be A= but I misspelled it in the intrinsics table as X=.

[PeteSteinfeld]

LGTM!

flang/lib/Evaluate/intrinsics.cpp

static const IntrinsicInterface genericIntrinsicFunction[]{
     {"minval",
         {{"array", SameRelatable, Rank::array}, MissingDIM, OptionalMASK},
         SameRelatable, Rank::scalar, IntrinsicClass::transformationalFunction},
     {"mod", {{"a", OperandIntOrReal}, {"p", OperandIntOrReal}},
         OperandIntOrReal},
     {"modulo", {{"a", OperandIntOrReal}, {"p", OperandIntOrReal}},
         OperandIntOrReal},
     {"nearest", {{"x", SameReal}, {"s", AnyReal}}, SameReal},
-    {"new_line", {{"x", SameChar, Rank::anyOrAssumedRank}}, SameChar,
+    {"new_line", {{"a", SameChar, Rank::anyOrAssumedRank}}, SameChar,
         Rank::scalar, IntrinsicClass::inquiryFunction},
     {"nint", {{"a", AnyReal}, DefaultingKIND}, KINDInt},
     {"norm2", {{"x", SameReal, Rank::array}, OptionalDIM}, SameReal,
         Rank::dimReduced, IntrinsicClass::transformationalFunction},
     {"not", {{"i", SameInt}}, SameInt},
     // NULL() is a special case handled in Probe() below
     {"num_images", {}, DefaultInt, Rank::scalar,
         IntrinsicClass::transformationalFunction},

flang/test/Semantics/allocate04.f90

! only testing unlimited polymorphic and abstract-type here
   allocate(C:: u1, u2(2))
   allocate(character(n):: u1, u2(2))
   allocate(C:: n1%whatever, n2(2)%whatever)
   allocate(A:: p1, p2(2))
   allocate(B:: p3%y, p4(2)%y)
   allocate(u1, u2(2), MOLD = cos(5.+n))
   allocate(u1, u2(2), MOLD = molda)
   allocate(u1, u2(2), MOLD = n1)
-  allocate(u1, u2(2), MOLD = new_line("a"))
+  allocate(u1, u2(2), MOLD = new_line(a="a"))
   allocate(n1%whatever, MOLD = n2(1))
   allocate(p1, p2(2), MOLD = p3)
   allocate(p3%y, p4(2)%y, MOLD = B(5))
   allocate(u1, u2(2), SOURCE = cos(5.+n))
   allocate(u1, u2(2), SOURCE = molda)
   allocate(u1, u2(2), SOURCE = n1)
   allocate(u1, u2(2), SOURCE = new_line("a"))
   allocate(n1%whatever, SOURCE = n2(1))
   allocate(p1, p2(2), SOURCE = p3)
   allocate(p3%y, p4(2)%y, SOURCE = B(5))
 
   ! OK, not unlimited polymorphic or abstract
   allocate(n1, n2(2))
   allocate(p3, p4(2))
 end subroutine