1 /******************************************************************************
2 * Copyright (c) 2000-2016 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
9 * Adrien Kirjak – initial implementation
12 ** @purpose 1:5.4.2, verify that uninitialized values cannot be passed to in formal parameters
13 ** @verdict pass reject
14 ***************************************************/
16 // The following requirement is tested:
17 // Unless specified differently in the relevant clause(s), actual parameters
18 // passed to in or inout formal parameters shall be at least partially
19 // initialized (for an exemption see e.g. clause 16.1.2 of the present document).
21 module NegSem_050402_actual_parameters_119 {
23 type component GeneralComp {
28 integer field2 optional
31 function f_test (R p_val) {
32 if (not isbound(p_val)) { setverdict(pass); }
33 else { setverdict(fail); }
36 testcase TC_NegSem_050402_actual_parameters_119() runs on GeneralComp {
42 execute(TC_NegSem_050402_actual_parameters_119());