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