diff options
| author | Nicolas Koenig <koenigni@student.ethz.ch> | 2021-10-28 22:41:40 +0200 |
|---|---|---|
| committer | Nicolas Koenig <koenigni@student.ethz.ch> | 2021-10-28 22:41:40 +0200 |
| commit | 9fc240973e79d797bd5a5bdcbc8d0affa3e5a08a (patch) | |
| tree | 695062c219f0c29cbf38fbd577f7b5fdb8adb50c /libgfortran/caf_shared/coarraynative.c | |
| parent | 8df87c9e2c0a31c669625c4942d09b03d36c73e9 (diff) | |
| download | gcc-devel/coarray_native.tar.gz | |
Only allocate a single chunk of memory on startup.devel/coarray_native
Diffstat (limited to 'libgfortran/caf_shared/coarraynative.c')
| -rw-r--r-- | libgfortran/caf_shared/coarraynative.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/caf_shared/coarraynative.c b/libgfortran/caf_shared/coarraynative.c index cf72433594e..e2020ce0c49 100644 --- a/libgfortran/caf_shared/coarraynative.c +++ b/libgfortran/caf_shared/coarraynative.c @@ -95,11 +95,11 @@ get_memory_size (void) } if (sz == 0) { - /* Use 256 MB for 32-bit systems and 256 GB for 64-bit systems. */ + /* Use 256 MB for 32-bit systems and 4 GB for 64-bit systems. */ if (sizeof (size_t) == 4) sz = ((size_t) 1) << 28; else - sz = ((size_t) 1) << 38; + sz = ((size_t) 1) << 34; } return sz; } |