From 57d3d9d30192791c2f9c0301d28747a768be67da Mon Sep 17 00:00:00 2001 From: Nick Horelik Date: Tue, 6 May 2014 10:34:46 -0400 Subject: [PATCH] Changed to ifdef to be consistent with the rest of the codebase --- src/progress_header.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/progress_header.F90 b/src/progress_header.F90 index 7af891af35..d0ee7563a5 100644 --- a/src/progress_header.F90 +++ b/src/progress_header.F90 @@ -4,7 +4,7 @@ module progress_header implicit none -#if (UNIX) +#ifdef UNIX interface function check_isatty(fd) bind(C, name = 'isatty') use, intrinsic :: ISO_C_BINDING, only: c_int @@ -39,7 +39,7 @@ contains istty = .true. -#if (UNIX) +#ifdef UNIX if (check_isatty(1) == 0) istty = .false. #else istty = .false.