brintos / llvm-project-archived public Read only

1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror2integer, parameter :: num = 33integer, parameter :: arr(num)=[(i, i=1,num)]4!WARNING: is_contiguous() is always true for named constants and subobjects of named constants [-Wconstant-is-contiguous]5logical, parameter :: result=is_contiguous(arr(num:1:-1))6end7