/******************************************************************************
 * Copyright (c) 2000-2021 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v2.0
 * which accompanies this distribution, and is available at
 * https://www.eclipse.org/org/documents/epl-2.0/EPL-2.0.html
 *
 * Contributors:
 *   Gabor, Szalai – initial implementation
 *
 ******************************************************************************/

module Issue574 {


type component CT {};

type enumerated my_enum{ a(0), b(1)} with {variant "FIELDLENGTH(32)"}

type union my_union{
  my_enum f1,
  octetstring f2
}

template my_union t_expected:={f2:='FFFFFFFF'O}



testcase tc_issue574() runs on CT {
  var bitstring vl_encoded:='11111111111111111111111111111111'B
  var my_union vl_pdu
  var integer vl_res:=decvalue(vl_encoded,vl_pdu)
  
  log(vl_res)
  log(vl_pdu)
  if(vl_res == 0 and match(vl_pdu,t_expected)){
    setverdict(pass)
  } else {
    setverdict(fail)
  }
}
  
  
  


control {
  execute(tc_issue574());
}

} with {
  encode "RAW"
}