1! { dg-do compile }
2! PR fortran/56007
3! Based on testcase by Tobias Schlüter
4
5  integer iw1(90), doiw1(90)
6  do iw1=1,2     ! { dg-error "cannot be an array" }
7  end do         ! { dg-error "Expecting END PROGRAM statement" }
8  do iw1(1)=1
9  do iw1=1       ! { dg-error "cannot be an array" }
10  end do         ! { dg-error "Expecting END PROGRAM statement" }
11END program
12