1*22ed61edSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*22ed61edSPeter Klauslermodule m 3*22ed61edSPeter Klausler contains 4*22ed61edSPeter Klausler elemental subroutine inout(x) 5*22ed61edSPeter Klausler integer, intent(inout) :: x 6*22ed61edSPeter Klausler end 7*22ed61edSPeter Klausler subroutine test 8*22ed61edSPeter Klausler integer :: x(2) 9*22ed61edSPeter Klausler !ERROR: Left-hand side of assignment is not definable 10*22ed61edSPeter Klausler !BECAUSE: Variable has a vector subscript with a duplicated element 11*22ed61edSPeter Klausler x([1,1]) = 0 12*22ed61edSPeter Klausler !ERROR: Actual argument associated with INTENT(IN OUT) dummy argument 'x=' is not definable 13*22ed61edSPeter Klausler !BECAUSE: Variable has a vector subscript with a duplicated element 14*22ed61edSPeter Klausler call inout(x([(mod(j-1,2)+1,j=1,10)])) 15*22ed61edSPeter Klausler !ERROR: Input variable 'x' is not definable 16*22ed61edSPeter Klausler !BECAUSE: Variable has a vector subscript with a duplicated element 17*22ed61edSPeter Klausler read (*,*) x([2,2]) 18*22ed61edSPeter Klausler end 19*22ed61edSPeter Klauslerend 20*22ed61edSPeter Klausler 21