1! { dg-do compile }
2! { dg-options "-ffrontend-optimize" }
3! PR fortran/66385 - this used to ICE
4! Original test case by Mianzhi Wang
5program test
6  double precision::aa(30)
7  double precision::a(3,3),b
8  b=1d0
9  forall(i=1:3)
10    a(:,i)=b*[1d0,2d0,3d0]
11  end forall
12
13  forall(i=1:10)
14    aa(10*[0,1,2]+i)=1d0
15  end forall
16
17end program
18