Use ACC_OFFLOAD_STACK_SIZE

Author: clementval

flang/runtime/environment.cpp

@@ -143,14 +143,15 @@ void ExecutionEnvironment::Configure(int ac, const char *av[],
     }
   }
 
-  if (auto *x{std::getenv("CUDA_STACKLIMIT")}) {
+  if (auto *x{std::getenv("ACC_OFFLOAD_STACK_SIZE")}) {
     char *end;
     auto n{std::strtoul(x, &end, 10)};
     if (n > 0 && n < std::numeric_limits<std::size_t>::max() && *end == '\0') {
       cudaStackLimit = n;
     } else {
       std::fprintf(stderr,
-          "Fortran runtime: CUDA_STACKLIMIT=%s is invalid; ignored\n", x);
+          "Fortran runtime: ACC_OFFLOAD_STACK_SIZE=%s is invalid; ignored\n",
+          x);
     }
   }
 

flang/runtime/environment.h

@@ -57,8 +57,8 @@ struct ExecutionEnvironment {
   bool defaultUTF8{false}; // DEFAULT_UTF8
   bool checkPointerDeallocation{true}; // FORT_CHECK_POINTER_DEALLOCATION
 
-  // CUDA Fortran related variables
-  std::size_t cudaStackLimit{0}; // CUDA_STACKLIMIT
+  // CUDA related variables
+  std::size_t cudaStackLimit{0}; // ACC_OFFLOAD_STACK_SIZE
 };
 
 RT_OFFLOAD_VAR_GROUP_BEGIN