[flang] Tweak a SCALE/IEEE_SCALB folding overflow warning message (#114994)

Author: vdonaldson

flang/lib/Evaluate/fold-real.cpp

@@ -432,7 +432,7 @@ Expr<Type<TypeCategory::Real, KIND>> FoldIntrinsicFunction(
                               common::UsageWarning::FoldingException)) {
                         context.messages().Say(
                             common::UsageWarning::FoldingException,
-                            "SCALE intrinsic folding overflow"_warn_en_US);
+                            "SCALE/IEEE_SCALB intrinsic folding overflow"_warn_en_US);
                       }
                       return result.value;
                     }));

flang/test/Evaluate/errors01.f90

@@ -168,10 +168,13 @@ subroutine s14(n)
     print *, ibits(0, 33, n)
   end
   subroutine warnings
+    use ieee_arithmetic, only: ieee_scalb
     real, parameter :: ok1 = scale(0.0, 99999) ! 0.0
     real, parameter :: ok2 = scale(1.0, -99999) ! 0.0
-    !CHECK: SCALE intrinsic folding overflow
+    !CHECK: SCALE/IEEE_SCALB intrinsic folding overflow
     real, parameter :: bad1 = scale(1.0, 99999)
+    !CHECK: SCALE/IEEE_SCALB intrinsic folding overflow
+    real, parameter :: bad1a = ieee_scalb(1.0, 99999)
     !CHECK: complex ABS intrinsic folding overflow
     real, parameter :: bad2 = abs(cmplx(huge(0.),huge(0.)))
     !CHECK: warning: DIM intrinsic folding overflow