/***************************************************
 ** @author   STF 409
 ** @version  0.0.1
 ** @purpose  1:19.5, Ensure that the IUT properly evaluates while statements
 ** @verdict  pass  reject
 ***************************************************/
module NegSem_1905_while_statement_001 {

type component GeneralComp {
}

testcase TC_NegSem_1905_while_statement_001 () runs on GeneralComp{
 var integer v_i:=1;

 while(v_i<10) {
  var integer v_j:=1;
  v_i:=v_i+1;
 }

  if(v_j==1) { setverdict(pass); }		//v_j is not accessible from outside the loop

}


control{

    execute(TC_NegSem_1905_while_statement_001());

}

}
