| ! RUN: %flang_fc1 -fsyntax-only -pedantic %s 2>&1 | FileCheck --allow-empty %s | |
| ! CHECK-NOT: error: | |
| ! Regression test for https://github.com/llvm/llvm-project/issues/124191 | |
| character(3) :: arr(5) = ['aa.', 'bb.', 'cc.', 'dd.', 'ee.'] | |
| arr([(mod(iachar(arr(i:i-1:-1)(1:1)),5)+1, i=2,5,3)]) = arr(5:2:-1) | |
| end |