From 03c2588d7173b21efe66e9acfecc4e2e42d279a7 Mon Sep 17 00:00:00 2001 From: edoapra Date: Wed, 10 May 2023 12:04:22 -0700 Subject: [PATCH] skip code for flang --- src/config/makefile.h | 2 ++ src/util/util_file_name.F | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/config/makefile.h b/src/config/makefile.h index 58a5a52ff6..930d7c55f4 100644 --- a/src/config/makefile.h +++ b/src/config/makefile.h @@ -3096,9 +3096,11 @@ ifneq ($(TARGET),LINUX) # Jeff: FreeBSD does not link libm automatically with flang ifeq ($(USE_FLANG),1) EXTRA_LIBS += -lm + DEFINES += -DUSE_FLANG endif endif + endif #endof of LINUX64 diff --git a/src/util/util_file_name.F b/src/util/util_file_name.F index c93c307913..0743dedbfc 100644 --- a/src/util/util_file_name.F +++ b/src/util/util_file_name.F @@ -1185,7 +1185,7 @@ c iunit=10 open (iunit,file=fname) call util_flush(iunit) -#ifdef GFORTRAN +#if defined(GFORTRAN) && !defined(USE_FLANG) && !defined(__llvm__) && !defined(___PGLLVM__) fd_in=fnum(iunit) c Flush and sync code=fsync(fd_in)