From 0520b5e2cf70e2451c37ce5b7f2f64f6d2e5e956 Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Wed, 28 Jun 2023 13:47:39 +0200
Subject: [PATCH] Use (L1) for logicals to avoid bugs between ifort and
 gfortran

---
 src/f_types.py | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/f_types.py b/src/f_types.py
index d1c5d43..b70bfd2 100644
--- a/src/f_types.py
+++ b/src/f_types.py
@@ -27,7 +27,7 @@ format= {
  'integer'         : ["'(I20)'", "%20d"],
  'real'            : ["'(E24.15)'","%24.15E"],
  'double precision': ["'(E24.15)'","%24.15E"],
- 'logical'         : ["'(L)'","%c"],
+ 'logical'         : ["'(L1)'","%c"],
  'character*(*)'   : ["'(A)'","%s"]
  }