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