Re: [gfortran] PR 15327: Fix merge intrinsic for strings

[Tobias Schlüter <tobias dot schlueter at physik dot uni-muenchen dot de>]

Paul Brook wrote:
> Ok, except you might want to consider:
> 
> 
>>!       type = TREE_TYPE (tsource);
>>!       se->expr = fold (build3 (COND_EXPR, type, mask, tsource, fsource));
> 
> 
> This is the same in both cases, so could be moved outside the if.

I didn't feel strongly either way, I moved those two lines out the if, but
kept the line which sets mask inside the if: even though it's redundant I felt
it would be preferable to keep the argument lists together.

- Tobi