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