/***************************************************
 ** @author   STF 451
 ** @version  0.0.1
 ** @purpose  1:6.2.1.1, The dot notation used in record type definitions is correctly handled
 ** @verdict  pass accept, ttcn3verdict:pass
 ***************************************************/
module Sem_06020101_ReferencingRecordFields_004 {

type component GeneralComp {
}

 type record R {
  integer field1 (1 .. 10),
  charstring field2 optional
 }


 type R.field2 MyChar;

testcase TC_Sem_06020101_ReferencingRecordFields_004() runs on GeneralComp {

 var MyChar v_char := "abc";  // any character string is allowed

      if (v_char=="abc") {
	    setverdict(pass);
      }
      else {
	    setverdict(fail);
	  }

}

control {
    execute(TC_Sem_06020101_ReferencingRecordFields_004());
}

}
