From 3f100a3288fdc20a905673c7f5e2e6bd35a8fa28 Mon Sep 17 00:00:00 2001 From: Jeff Hammond Date: Tue, 27 Feb 2024 09:21:54 +0200 Subject: [PATCH] remove all the __crayx1 preprocessing Cray X1 is a dead platform. Most of this is related to weirdness in Cray Fortran character/string handling. Signed-off-by: Jeff Hammond --- src/optim/string/string.F | 2 +- src/util/util_sgroup.F | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/optim/string/string.F b/src/optim/string/string.F index 643a9b6667..32896a31db 100644 --- a/src/optim/string/string.F +++ b/src/optim/string/string.F @@ -822,7 +822,7 @@ C> @} read(19,*,ERR=30,END=30) ch_tmp end do 30 continue -#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(__crayx1) || defined(GCC46) +#if defined(FUJITSU) || defined(PSCALE) || defined(SOLARIS) || defined(GCC46) backspace 19 #endif write(19,*) " " diff --git a/src/util/util_sgroup.F b/src/util/util_sgroup.F index 294e1c6abb..debffc3f1c 100644 --- a/src/util/util_sgroup.F +++ b/src/util/util_sgroup.F @@ -868,7 +868,7 @@ C> read(LuOut,*,ERR=30,END=30) ch_tmp end do 30 continue -#if defined(FUJITSU) || defined(PSCALE) || defined(__crayx1) +#if defined(FUJITSU) || defined(PSCALE) backspace LuOut #endif * **** FILE does not exist ****