Skip to content

Commit

Permalink
loop fusion: mention issue regarding provision of type information fo…
Browse files Browse the repository at this point in the history
…r functions defined by the Fortran standard (#390)
  • Loading branch information
MichaelSt98 authored and mlange05 committed Oct 14, 2024
1 parent 38a0a9b commit 7a65ebe
Showing 1 changed file with 2 additions and 0 deletions.
2 changes: 2 additions & 0 deletions loki/transformations/transform_loop.py
Original file line number Diff line number Diff line change
Expand Up @@ -371,12 +371,14 @@ def loop_fusion(routine):
if len(lower_bounds) == 1:
lower_bounds = lower_bounds[0]
else:
# TODO: could/should be ProcedureSymbol, however refer to issue: #390
fct_symbol = sym.DeferredTypeSymbol(name='min', scope=routine)
lower_bounds = sym.InlineCall(fct_symbol, parameters=as_tuple(lower_bounds))

if len(upper_bounds) == 1:
upper_bounds = upper_bounds[0]
else:
# TODO: could/should be ProcedureSymbol, however refer to issue: #390
fct_symbol = sym.DeferredTypeSymbol(name='max', scope=routine)
upper_bounds = sym.InlineCall(fct_symbol, parameters=as_tuple(upper_bounds))

Expand Down

0 comments on commit 7a65ebe

Please sign in to comment.