[flang] Merge pull request flang-compiler/f18#201 from flang-compiler/eas8

Fix recursion bug so canondo04.f90 test passes.

Original-commit: flang-compiler/f18@d021c00f9452ce91149339215afce6bf60029145
Reviewed-on: https://github.com/flang-compiler/f18/pull/201