1! { dg-do compile }
2! Option passed to avoid excess errors from obsolete warning
3! { dg-options "-w" }
4      integer i(5)
5      assign 1000 to i   ! { dg-error "scalar default INTEGER" }
6 1000 continue
7      end
8