[flang] Fixed simple typo in runtime code

Reviewed By: klausler

Differential Revision: https://reviews.llvm.org/D104034

diff --git a/flang/runtime/random.cpp b/flang/runtime/random.cpp
index 4d2297a..0ae4f27 100644 (file)
--- a/flang/runtime/random.cpp
+++ b/flang/runtime/random.cpp
@@ -103,7 +103,7 @@ void RTNAME(RandomNumber)(
     Generate<CppTypeFor<TypeCategory::Real, 10>, 64>(harvest);
     break;
 #elif LONG_DOUBLE == 128
-  case 4:
+  case 16:
     Generate<CppTypeFor<TypeCategory::Real, 16>, 113>(harvest);
     break;
 #endif