1204861Sdes! { dg-do run } 2204861Sdes! { dg-options "-O2" } 3204861Sdes! Tests the fix PR29392, in which the iterator valued substring 4204861Sdes! reference would cause a segfault. 5204861Sdes! 6204861Sdes! Contributed by Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> 7204861Sdes! 8221420Sdes character(LEN=2) :: a(2) 9221420Sdes data ((a(I)(k:k),I=1,2),k=1,2) /2*'a',2*'z'/ 10221420Sdes IF (ANY(a.NE."az")) CALL ABORT() 11221420Sdes END 12221420Sdes