1! RUN: %python %S/test_errors.py %s %flang_fc1 2! Confirm enforcement of F'2023 7.8 p5 3subroutine subr(s,n) 4 character*(*) s 5 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 6 print *, [(s(1:n),j=1,0)] 7 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 8 print *, [(s(1:n),j=0,1,-1)] 9 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length 10 print *, [(s(1:j),j=1,0)] 11 print *, [(s(1:1),j=1,0)] ! ok 12 print *, [character(2)::(s(1:n),j=1,0)] ! ok 13 print *, [character(n)::(s(1:n),j=1,0)] 14end 15