1 ! RUN: %python %S/test_errors.py %s %flang_fc1
3 ! Ensure that FINAL subroutine can be called for array with vector-valued
21 type(t1
), intent(in out
) :: x(:)
24 type(t2
), intent(in out
) :: x(..)
26 impure elemental
subroutine f3(x
)
27 type(t3
), intent(in out
) :: x
39 !ERROR: Left-hand side of assignment is not definable
40 !BECAUSE: Variable 'x1([INTEGER(8)::1_8])' has a vector subscript and cannot be finalized by non-elemental subroutine 'f1'
42 !ERROR: Left-hand side of assignment is not definable
43 !BECAUSE: Variable 'x2([INTEGER(8)::1_8])' has a vector subscript and cannot be finalized by non-elemental subroutine 'f2'