21 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 contains4 elemental subroutine inout(x)5 integer, intent(inout) :: x6 end7 subroutine test8 integer :: x(2)9 !ERROR: Left-hand side of assignment is not definable10 !BECAUSE: Variable has a vector subscript with a duplicated element11 x([1,1]) = 012 !ERROR: Actual argument associated with INTENT(IN OUT) dummy argument 'x=' is not definable13 !BECAUSE: Variable has a vector subscript with a duplicated element14 call inout(x([(mod(j-1,2)+1,j=1,10)]))15 !ERROR: Input variable 'x' is not definable16 !BECAUSE: Variable has a vector subscript with a duplicated element17 read (*,*) x([2,2])18 end19end20 21