projects / deliverable / titan.core.git / blame
| Commit | Line | Data |
|---|---|---|
| 970ed795 | 1 | --///////////////////////////////////////////////////////////////////////////// |
| 3abe9331 | 2 | -- Copyright (c) 2000-2015 Ericsson Telecom AB |
| 970ed795 EL |
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 | Test62 | |
| 9 | ||
| 10 | DEFINITIONS | |
| 11 | ||
| 12 | AUTOMATIC TAGS | |
| 13 | ||
| 14 | ::= | |
| 15 | ||
| 16 | BEGIN | |
| 17 | ||
| 18 | IMPORTS ; -- nothing | |
| 19 | ||
| 20 | MyRealType1 ::= REAL | |
| 21 | ||
| 22 | myRealValue1 REAL ::= {mantissa 314159,base 10, exponent -10} | |
| 23 | ||
| 24 | myRealValue2 MyRealType1 ::= {mantissa 314159,base 10, exponent -5} | |
| 25 | ||
| 26 | myMantissa INTEGER ::= 123 | |
| 27 | ||
| 28 | myBase INTEGER ::= 2 | |
| 29 | ||
| 30 | myExponent INTEGER ::= 0 | |
| 31 | ||
| 32 | myRealValue3 MyRealType1 ::= {mantissa myMantissa ,base myBase, exponent myExponent} | |
| 33 | ||
| 34 | myRealValue4 REAL ::= {mantissa myMantissa ,base 10, exponent myExponent} | |
| 35 | ||
| 36 | ||
| 37 | ||
| 38 | END |