diff --git a/releaseNotes.txt b/releaseNotes.txt
index 2e01a761..dda62324 100644
--- a/releaseNotes.txt
+++ b/releaseNotes.txt
@@ -11,6 +11,7 @@ in that case will be set to 0.
 September 9, 2024
 * MQCPack version set to 24.9.1
 * Added MQC_Binary to the build list.
+* Fixed a bug in MQC_Binary that caused a compile-time error with gfortran.
 
 August 26, 2024
 * MQCPack version set to 24.8.1
diff --git a/src/mqc_binary.F03 b/src/mqc_binary.F03
index 9cdf150b..820403e0 100644
--- a/src/mqc_binary.F03
+++ b/src/mqc_binary.F03
@@ -82,7 +82,7 @@ function MQC_Bits_Initialize(nBits) result(mqc_bits_out)
 !
 !
       implicit none
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
       integer(kind=int64),intent(in),optional::nBits
 !
       integer(kind=int64)::my_nBits,nIntegers
@@ -237,7 +237,7 @@ function MQC_BTest(mqc_bits_in,bitnum) result(bitValue)
       implicit none
       type(mqc_bits),intent(In)::mqc_bits_in
       integer(kind=int64),intent(in)::bitNum
-      logical,intent(out)::bitValue
+      logical::bitValue
 !
       integer(kind=int64)::iInteger,iBitNum
 !
@@ -310,7 +310,7 @@ function MQC_IAnd(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !
@@ -343,7 +343,7 @@ function MQC_IEOR(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !
@@ -376,7 +376,7 @@ function MQC_IOR(mqc_bits_in1,mqc_bits_in2) result(mqc_bits_out)
 !
       implicit none
       type(mqc_bits),intent(in)::mqc_bits_in1,mqc_bits_in2
-      type(mqc_bits),intent(out)::mqc_bits_out
+      type(mqc_bits)::mqc_bits_out
 !
       integer(kind=int64)::i
 !