Skip to content

Commit c339bad

Browse files
author
Jean Luc Bouchot
committed
Improvements in parsing args
1 parent e36aa54 commit c339bad

1 file changed

Lines changed: 3 additions & 1 deletion

File tree

run_tapenade_blas.py

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -736,6 +736,8 @@ def parse_fortran_function(file_path: Path, suppress_warnings=False):
736736
complex_vars.add(func_name)
737737
elif 'INTEGER' in return_type_upper:
738738
integer_vars.add(func_name)
739+
elif 'LOGICAL' in return_type_upper:
740+
logical_vars.add(func_name)
739741
else:
740742
# Fortran 90 style: type is declared separately (e.g., "real(wp) :: func_name")
741743
# Look for type declaration after the function declaration
@@ -798,7 +800,7 @@ def parse_fortran_function(file_path: Path, suppress_warnings=False):
798800
inputs.append(param_name)
799801
elif param_type.lower() == 'out':
800802
outputs.append(param_name)
801-
elif param_type.lower() in ['in,out', 'in,out']:
803+
elif param_type.lower() in ['in,out', 'in,out']: # ????? Why duplicate these things?
802804
inout_vars.append(param_name)
803805

804806
# For FUNCTIONs, always add the function name itself as output if it's real or complex-valued

0 commit comments

Comments
 (0)