12 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Ensure that array-valued component references have lengths3! (see https://github.com/llvm/llvm-project/issues/123362)4module m5 type cdt6 character(7) :: a = "ibm704", b = "cdc6600"7 end type8 type(cdt), parameter :: arr(2) = cdt()9 integer, parameter :: check(*) = scan(arr%a, arr%b)10 logical, parameter :: test1 = all(check == 5) ! the '0'11end12