17995fa2fSPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 27995fa2fSPeter Klausler! Confirm enforcement of F'2023 7.8 p5 37995fa2fSPeter Klauslersubroutine subr(s,n) 47995fa2fSPeter Klausler character*(*) s 57995fa2fSPeter Klausler !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 67995fa2fSPeter Klausler print *, [(s(1:n),j=1,0)] 77995fa2fSPeter Klausler !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 87995fa2fSPeter Klausler print *, [(s(1:n),j=0,1,-1)] 97995fa2fSPeter Klausler !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 107995fa2fSPeter Klausler print *, [(s(1:j),j=1,0)] 117995fa2fSPeter Klausler print *, [(s(1:1),j=1,0)] ! ok 127995fa2fSPeter Klausler print *, [character(2)::(s(1:n),j=1,0)] ! ok 13*9c446da5SPeter Klausler print *, [character(n)::(s(1:n),j=1,0)] 147995fa2fSPeter Klauslerend 15