From 229761aa6fb342abd42dffdaa968611d48adf3d4 Mon Sep 17 00:00:00 2001
From: Laurence Kedward <laurence.kedward@bristol.ac.uk>
Date: Mon, 22 Nov 2021 16:18:41 +0000
Subject: Fix: backend c_isatty for bootstrapping

---
 src/fpm_backend.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src')

diff --git a/src/fpm_backend.f90 b/src/fpm_backend.f90
index e0ed972..af50162 100644
--- a/src/fpm_backend.f90
+++ b/src/fpm_backend.f90
@@ -41,12 +41,14 @@ implicit none
 private
 public :: build_package, sort_target, schedule_targets
 
+#ifndef FPM_BOOTSTRAP
 interface
     function c_isatty() bind(C, name = 'c_isatty')
         use, intrinsic :: iso_c_binding, only: c_int
         integer(c_int)        :: c_isatty
     end function
 end interface
+#endif
 
 contains
 
@@ -98,7 +100,11 @@ subroutine build_package(targets,model,verbose)
     n_complete = 0
 
     ! Set output mode
+#ifndef FPM_BOOTSTRAP
     plain_output = (.not.(c_isatty()==1)) .or. verbose
+#else
+    plain_output = verbose
+#endif
     call console%init(plain_output)
     call output_init(plain_output)
 
-- 
cgit v1.2.3