[deliverable/titan.core.git] / function_test / Semantic_Analyser / xer / namedup2_SE.ttcn

/******************************************************************************
 * Copyright (c) 2000-2014 Ericsson Telecom AB
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 ******************************************************************************/
module namedup2 {	//^In TTCN-3 module `namedup2'://2

// Why is this not an error ?
type boolean namedup2; //^warning: Definition with name `namedup2' hides a module identifier//

type record S { //^In type definition//
  integer S,    //^error: Field name clashes with type name//
  // duplicate field name:  float S
  float namedup2
}

type union U { //^In type definition//
  float U      //^error: Field name clashes with type name//
}

}
Commit	Line	Data
114d1c9a EL	1	/******************************************************************************
	2	* Copyright (c) 2000-2014 Ericsson Telecom AB
	3	* All rights reserved. This program and the accompanying materials
	4	* are made available under the terms of the Eclipse Public License v1.0
	5	* which accompanies this distribution, and is available at
	6	* http://www.eclipse.org/legal/epl-v10.html
	7	******************************************************************************/
	8	module namedup2 { //^In TTCN-3 module `namedup2'://2
	9
	10	// Why is this not an error ?
	11	type boolean namedup2; //^warning: Definition with name `namedup2' hides a module identifier//
	12
	13	type record S { //^In type definition//
	14	integer S, //^error: Field name clashes with type name//
	15	// duplicate field name: float S
	16	float namedup2
	17	}
	18
	19	type union U { //^In type definition//
	20	float U //^error: Field name clashes with type name//
	21	}
	22
	23	}