[flang] Function call in a declaration loops infinitely at run time

[psteinfeld]

This derives from test 0251_0187 from the Fujitsu test suite.

Line 39 of this test contains a declaration contains a complicated expression with function calls:

CHARACTER(LEN=SIZE(arr,fun(fun1()))+2)::aa

The value of the expression fun(fun1()) is 2. So this declaration should be equivalent to

CHARACTER(LEN=SIZE(arr,2)+2)::aa

And when I change the test to contain this alternate declaration, it passes. But the unmodified test seems to hang when executed.

[klausler]

Here's the test in question: https://github.com/fujitsu/compiler-test-suite/blob/main/Fortran/0251/0251_0187.f90