19 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Confirm enforcement of F'2023 7.8 p53subroutine subr(s,n)4 character*(*) s5 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length6 print *, [(s(1:n),j=1,0)]7 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length8 print *, [(s(1:n),j=0,1,-1)]9 !ERROR: Array constructor implied DO loop has no iterations and indeterminate character length10 print *, [(s(1:j),j=1,0)]11 print *, [(s(1:1),j=1,0)] ! ok12 print *, [character(2)::(s(1:n),j=1,0)] ! ok13 print *, [character(n)::(s(1:n),j=1,0)]14 !ERROR: A length specifier of '*' or ':' may not appear in the type of an array constructor15 print *, [ character(:) :: ]16 !ERROR: A length specifier of '*' or ':' may not appear in the type of an array constructor17 print *, [ character(*) :: ]18end19