edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: SINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_USINT'; edouard@3749: IF BOOL_TO_USINT(BOOL#TRUE) <> USINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_BYTE'; edouard@3749: IF BOOL_TO_BYTE(BOOL#TRUE) <> BYTE#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_STRING'; edouard@3749: IF BOOL_TO_STRING(BOOL#TRUE) <> 'TRUE' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_INT'; edouard@3749: IF BOOL_TO_INT(BOOL#TRUE) <> INT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_UINT'; edouard@3749: IF BOOL_TO_UINT(BOOL#TRUE) <> UINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_WORD'; edouard@3749: IF BOOL_TO_WORD(BOOL#TRUE) <> WORD#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_DINT'; edouard@3749: IF BOOL_TO_DINT(BOOL#TRUE) <> DINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_UDINT'; edouard@3749: IF BOOL_TO_UDINT(BOOL#TRUE) <> UDINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_DWORD'; edouard@3749: IF BOOL_TO_DWORD(BOOL#TRUE) <> DWORD#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_LINT'; edouard@3749: IF BOOL_TO_LINT(BOOL#TRUE) <> LINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_ULINT'; edouard@3749: IF BOOL_TO_ULINT(BOOL#TRUE) <> ULINT#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_LWORD'; edouard@3749: IF BOOL_TO_LWORD(BOOL#TRUE) <> LWORD#1 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_REAL'; edouard@3749: IF BOOL_TO_REAL(BOOL#TRUE) <> REAL#1.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BOOL_TO_LREAL'; edouard@3749: IF BOOL_TO_LREAL(BOOL#TRUE) <> LREAL#1.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_BOOL'; edouard@3749: IF SINT_TO_BOOL(SINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_USINT'; edouard@3749: IF SINT_TO_USINT(SINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_BYTE'; edouard@3749: IF SINT_TO_BYTE(SINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_STRING'; edouard@3749: IF SINT_TO_STRING(SINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_INT'; edouard@3749: IF SINT_TO_INT(SINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_UINT'; edouard@3749: IF SINT_TO_UINT(SINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_WORD'; edouard@3749: IF SINT_TO_WORD(SINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_DINT'; edouard@3749: IF SINT_TO_DINT(SINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_UDINT'; edouard@3749: IF SINT_TO_UDINT(SINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_DWORD'; edouard@3749: IF SINT_TO_DWORD(SINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_LINT'; edouard@3749: IF SINT_TO_LINT(SINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_ULINT'; edouard@3749: IF SINT_TO_ULINT(SINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_LWORD'; edouard@3749: IF SINT_TO_LWORD(SINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_REAL'; edouard@3749: IF SINT_TO_REAL(SINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'SINT_TO_LREAL'; edouard@3749: IF SINT_TO_LREAL(SINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_BOOL'; edouard@3749: IF USINT_TO_BOOL(USINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_SINT'; edouard@3749: IF USINT_TO_SINT(USINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_BYTE'; edouard@3749: IF USINT_TO_BYTE(USINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_STRING'; edouard@3749: IF USINT_TO_STRING(USINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_INT'; edouard@3749: IF USINT_TO_INT(USINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_UINT'; edouard@3749: IF USINT_TO_UINT(USINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_WORD'; edouard@3749: IF USINT_TO_WORD(USINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_DINT'; edouard@3749: IF USINT_TO_DINT(USINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_UDINT'; edouard@3749: IF USINT_TO_UDINT(USINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_DWORD'; edouard@3749: IF USINT_TO_DWORD(USINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_LINT'; edouard@3749: IF USINT_TO_LINT(USINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_ULINT'; edouard@3749: IF USINT_TO_ULINT(USINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_LWORD'; edouard@3749: IF USINT_TO_LWORD(USINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_REAL'; edouard@3749: IF USINT_TO_REAL(USINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'USINT_TO_LREAL'; edouard@3749: IF USINT_TO_LREAL(USINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_BOOL'; edouard@3749: IF BYTE_TO_BOOL(BYTE#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_SINT'; edouard@3749: IF BYTE_TO_SINT(BYTE#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_USINT'; edouard@3749: IF BYTE_TO_USINT(BYTE#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_STRING'; edouard@3749: IF BYTE_TO_STRING(BYTE#42) <> '16#2a' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_INT'; edouard@3749: IF BYTE_TO_INT(BYTE#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_UINT'; edouard@3749: IF BYTE_TO_UINT(BYTE#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_WORD'; edouard@3749: IF BYTE_TO_WORD(BYTE#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_DINT'; edouard@3749: IF BYTE_TO_DINT(BYTE#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_UDINT'; edouard@3749: IF BYTE_TO_UDINT(BYTE#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_DWORD'; edouard@3749: IF BYTE_TO_DWORD(BYTE#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_LINT'; edouard@3749: IF BYTE_TO_LINT(BYTE#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_ULINT'; edouard@3749: IF BYTE_TO_ULINT(BYTE#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_LWORD'; edouard@3749: IF BYTE_TO_LWORD(BYTE#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_REAL'; edouard@3749: IF BYTE_TO_REAL(BYTE#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'BYTE_TO_LREAL'; edouard@3749: IF BYTE_TO_LREAL(BYTE#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_BOOL'; edouard@3749: IF STRING_TO_BOOL('42') <> BOOL#FALSE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_SINT'; edouard@3749: IF STRING_TO_SINT('42') <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_USINT'; edouard@3749: IF STRING_TO_USINT('42') <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_BYTE'; edouard@3749: IF STRING_TO_BYTE('42') <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_INT'; edouard@3749: IF STRING_TO_INT('42') <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_UINT'; edouard@3749: IF STRING_TO_UINT('42') <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_WORD'; edouard@3749: IF STRING_TO_WORD('42') <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_DINT'; edouard@3749: IF STRING_TO_DINT('42') <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_UDINT'; edouard@3749: IF STRING_TO_UDINT('42') <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_DWORD'; edouard@3749: IF STRING_TO_DWORD('42') <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_LINT'; edouard@3749: IF STRING_TO_LINT('42') <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_ULINT'; edouard@3749: IF STRING_TO_ULINT('42') <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_LWORD'; edouard@3749: IF STRING_TO_LWORD('42') <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_REAL'; edouard@3749: IF STRING_TO_REAL('42') <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'STRING_TO_LREAL'; edouard@3749: IF STRING_TO_LREAL('42') <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_BOOL'; edouard@3749: IF INT_TO_BOOL(INT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_SINT'; edouard@3749: IF INT_TO_SINT(INT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_USINT'; edouard@3749: IF INT_TO_USINT(INT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_BYTE'; edouard@3749: IF INT_TO_BYTE(INT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_STRING'; edouard@3749: IF INT_TO_STRING(INT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_UINT'; edouard@3749: IF INT_TO_UINT(INT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_WORD'; edouard@3749: IF INT_TO_WORD(INT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_DINT'; edouard@3749: IF INT_TO_DINT(INT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_UDINT'; edouard@3749: IF INT_TO_UDINT(INT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_DWORD'; edouard@3749: IF INT_TO_DWORD(INT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_LINT'; edouard@3749: IF INT_TO_LINT(INT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_ULINT'; edouard@3749: IF INT_TO_ULINT(INT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_LWORD'; edouard@3749: IF INT_TO_LWORD(INT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_REAL'; edouard@3749: IF INT_TO_REAL(INT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'INT_TO_LREAL'; edouard@3749: IF INT_TO_LREAL(INT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_BOOL'; edouard@3749: IF UINT_TO_BOOL(UINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_SINT'; edouard@3749: IF UINT_TO_SINT(UINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_USINT'; edouard@3749: IF UINT_TO_USINT(UINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_BYTE'; edouard@3749: IF UINT_TO_BYTE(UINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_STRING'; edouard@3749: IF UINT_TO_STRING(UINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_INT'; edouard@3749: IF UINT_TO_INT(UINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_WORD'; edouard@3749: IF UINT_TO_WORD(UINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_DINT'; edouard@3749: IF UINT_TO_DINT(UINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_UDINT'; edouard@3749: IF UINT_TO_UDINT(UINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_DWORD'; edouard@3749: IF UINT_TO_DWORD(UINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_LINT'; edouard@3749: IF UINT_TO_LINT(UINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_ULINT'; edouard@3749: IF UINT_TO_ULINT(UINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_LWORD'; edouard@3749: IF UINT_TO_LWORD(UINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_REAL'; edouard@3749: IF UINT_TO_REAL(UINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UINT_TO_LREAL'; edouard@3749: IF UINT_TO_LREAL(UINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_BOOL'; edouard@3749: IF WORD_TO_BOOL(WORD#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_SINT'; edouard@3749: IF WORD_TO_SINT(WORD#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_USINT'; edouard@3749: IF WORD_TO_USINT(WORD#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_BYTE'; edouard@3749: IF WORD_TO_BYTE(WORD#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_STRING'; edouard@3749: IF WORD_TO_STRING(WORD#42) <> '16#2a' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_INT'; edouard@3749: IF WORD_TO_INT(WORD#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_UINT'; edouard@3749: IF WORD_TO_UINT(WORD#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_DINT'; edouard@3749: IF WORD_TO_DINT(WORD#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_UDINT'; edouard@3749: IF WORD_TO_UDINT(WORD#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_DWORD'; edouard@3749: IF WORD_TO_DWORD(WORD#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_LINT'; edouard@3749: IF WORD_TO_LINT(WORD#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_ULINT'; edouard@3749: IF WORD_TO_ULINT(WORD#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_LWORD'; edouard@3749: IF WORD_TO_LWORD(WORD#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_REAL'; edouard@3749: IF WORD_TO_REAL(WORD#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'WORD_TO_LREAL'; edouard@3749: IF WORD_TO_LREAL(WORD#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_BOOL'; edouard@3749: IF DINT_TO_BOOL(DINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_SINT'; edouard@3749: IF DINT_TO_SINT(DINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_USINT'; edouard@3749: IF DINT_TO_USINT(DINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_BYTE'; edouard@3749: IF DINT_TO_BYTE(DINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_STRING'; edouard@3749: IF DINT_TO_STRING(DINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_INT'; edouard@3749: IF DINT_TO_INT(DINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_UINT'; edouard@3749: IF DINT_TO_UINT(DINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_WORD'; edouard@3749: IF DINT_TO_WORD(DINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_UDINT'; edouard@3749: IF DINT_TO_UDINT(DINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_DWORD'; edouard@3749: IF DINT_TO_DWORD(DINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_LINT'; edouard@3749: IF DINT_TO_LINT(DINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_ULINT'; edouard@3749: IF DINT_TO_ULINT(DINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_LWORD'; edouard@3749: IF DINT_TO_LWORD(DINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_REAL'; edouard@3749: IF DINT_TO_REAL(DINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DINT_TO_LREAL'; edouard@3749: IF DINT_TO_LREAL(DINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_BOOL'; edouard@3749: IF UDINT_TO_BOOL(UDINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_SINT'; edouard@3749: IF UDINT_TO_SINT(UDINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_USINT'; edouard@3749: IF UDINT_TO_USINT(UDINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_BYTE'; edouard@3749: IF UDINT_TO_BYTE(UDINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_STRING'; edouard@3749: IF UDINT_TO_STRING(UDINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_INT'; edouard@3749: IF UDINT_TO_INT(UDINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_UINT'; edouard@3749: IF UDINT_TO_UINT(UDINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_WORD'; edouard@3749: IF UDINT_TO_WORD(UDINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_DINT'; edouard@3749: IF UDINT_TO_DINT(UDINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_DWORD'; edouard@3749: IF UDINT_TO_DWORD(UDINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_LINT'; edouard@3749: IF UDINT_TO_LINT(UDINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_ULINT'; edouard@3749: IF UDINT_TO_ULINT(UDINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_LWORD'; edouard@3749: IF UDINT_TO_LWORD(UDINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_REAL'; edouard@3749: IF UDINT_TO_REAL(UDINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'UDINT_TO_LREAL'; edouard@3749: IF UDINT_TO_LREAL(UDINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_BOOL'; edouard@3749: IF DWORD_TO_BOOL(DWORD#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_SINT'; edouard@3749: IF DWORD_TO_SINT(DWORD#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_USINT'; edouard@3749: IF DWORD_TO_USINT(DWORD#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_BYTE'; edouard@3749: IF DWORD_TO_BYTE(DWORD#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_STRING'; edouard@3749: IF DWORD_TO_STRING(DWORD#42) <> '16#2a' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_INT'; edouard@3749: IF DWORD_TO_INT(DWORD#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_UINT'; edouard@3749: IF DWORD_TO_UINT(DWORD#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_WORD'; edouard@3749: IF DWORD_TO_WORD(DWORD#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_DINT'; edouard@3749: IF DWORD_TO_DINT(DWORD#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_UDINT'; edouard@3749: IF DWORD_TO_UDINT(DWORD#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_LINT'; edouard@3749: IF DWORD_TO_LINT(DWORD#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_ULINT'; edouard@3749: IF DWORD_TO_ULINT(DWORD#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_LWORD'; edouard@3749: IF DWORD_TO_LWORD(DWORD#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_REAL'; edouard@3749: IF DWORD_TO_REAL(DWORD#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'DWORD_TO_LREAL'; edouard@3749: IF DWORD_TO_LREAL(DWORD#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_BOOL'; edouard@3749: IF LINT_TO_BOOL(LINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_SINT'; edouard@3749: IF LINT_TO_SINT(LINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_USINT'; edouard@3749: IF LINT_TO_USINT(LINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_BYTE'; edouard@3749: IF LINT_TO_BYTE(LINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_STRING'; edouard@3749: IF LINT_TO_STRING(LINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_INT'; edouard@3749: IF LINT_TO_INT(LINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_UINT'; edouard@3749: IF LINT_TO_UINT(LINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_WORD'; edouard@3749: IF LINT_TO_WORD(LINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_DINT'; edouard@3749: IF LINT_TO_DINT(LINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_UDINT'; edouard@3749: IF LINT_TO_UDINT(LINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_DWORD'; edouard@3749: IF LINT_TO_DWORD(LINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_ULINT'; edouard@3749: IF LINT_TO_ULINT(LINT#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_LWORD'; edouard@3749: IF LINT_TO_LWORD(LINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_REAL'; edouard@3749: IF LINT_TO_REAL(LINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LINT_TO_LREAL'; edouard@3749: IF LINT_TO_LREAL(LINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_BOOL'; edouard@3749: IF ULINT_TO_BOOL(ULINT#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_SINT'; edouard@3749: IF ULINT_TO_SINT(ULINT#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_USINT'; edouard@3749: IF ULINT_TO_USINT(ULINT#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_BYTE'; edouard@3749: IF ULINT_TO_BYTE(ULINT#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_STRING'; edouard@3749: IF ULINT_TO_STRING(ULINT#42) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_INT'; edouard@3749: IF ULINT_TO_INT(ULINT#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_UINT'; edouard@3749: IF ULINT_TO_UINT(ULINT#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_WORD'; edouard@3749: IF ULINT_TO_WORD(ULINT#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_DINT'; edouard@3749: IF ULINT_TO_DINT(ULINT#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_UDINT'; edouard@3749: IF ULINT_TO_UDINT(ULINT#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_DWORD'; edouard@3749: IF ULINT_TO_DWORD(ULINT#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_LINT'; edouard@3749: IF ULINT_TO_LINT(ULINT#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_LWORD'; edouard@3749: IF ULINT_TO_LWORD(ULINT#42) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_REAL'; edouard@3749: IF ULINT_TO_REAL(ULINT#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'ULINT_TO_LREAL'; edouard@3749: IF ULINT_TO_LREAL(ULINT#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_BOOL'; edouard@3749: IF LWORD_TO_BOOL(LWORD#42) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_SINT'; edouard@3749: IF LWORD_TO_SINT(LWORD#42) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_USINT'; edouard@3749: IF LWORD_TO_USINT(LWORD#42) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_BYTE'; edouard@3749: IF LWORD_TO_BYTE(LWORD#42) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_STRING'; edouard@3749: IF LWORD_TO_STRING(LWORD#42) <> '16#2a' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_INT'; edouard@3749: IF LWORD_TO_INT(LWORD#42) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_UINT'; edouard@3749: IF LWORD_TO_UINT(LWORD#42) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_WORD'; edouard@3749: IF LWORD_TO_WORD(LWORD#42) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_DINT'; edouard@3749: IF LWORD_TO_DINT(LWORD#42) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_UDINT'; edouard@3749: IF LWORD_TO_UDINT(LWORD#42) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_DWORD'; edouard@3749: IF LWORD_TO_DWORD(LWORD#42) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_LINT'; edouard@3749: IF LWORD_TO_LINT(LWORD#42) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_ULINT'; edouard@3749: IF LWORD_TO_ULINT(LWORD#42) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_REAL'; edouard@3749: IF LWORD_TO_REAL(LWORD#42) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LWORD_TO_LREAL'; edouard@3749: IF LWORD_TO_LREAL(LWORD#42) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_BOOL'; edouard@3749: IF REAL_TO_BOOL(REAL#42.0) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_SINT'; edouard@3749: IF REAL_TO_SINT(REAL#42.0) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_USINT'; edouard@3749: IF REAL_TO_USINT(REAL#42.0) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_BYTE'; edouard@3749: IF REAL_TO_BYTE(REAL#42.0) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_STRING'; edouard@3749: IF REAL_TO_STRING(REAL#42.0) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_INT'; edouard@3749: IF REAL_TO_INT(REAL#42.0) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_UINT'; edouard@3749: IF REAL_TO_UINT(REAL#42.0) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_WORD'; edouard@3749: IF REAL_TO_WORD(REAL#42.0) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_DINT'; edouard@3749: IF REAL_TO_DINT(REAL#42.0) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_UDINT'; edouard@3749: IF REAL_TO_UDINT(REAL#42.0) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_DWORD'; edouard@3749: IF REAL_TO_DWORD(REAL#42.0) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_LINT'; edouard@3749: IF REAL_TO_LINT(REAL#42.0) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_ULINT'; edouard@3749: IF REAL_TO_ULINT(REAL#42.0) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_LWORD'; edouard@3749: IF REAL_TO_LWORD(REAL#42.0) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'REAL_TO_LREAL'; edouard@3749: IF REAL_TO_LREAL(REAL#42.0) <> LREAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_BOOL'; edouard@3749: IF LREAL_TO_BOOL(LREAL#42.0) <> BOOL#TRUE THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_SINT'; edouard@3749: IF LREAL_TO_SINT(LREAL#42.0) <> SINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_USINT'; edouard@3749: IF LREAL_TO_USINT(LREAL#42.0) <> USINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_BYTE'; edouard@3749: IF LREAL_TO_BYTE(LREAL#42.0) <> BYTE#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_STRING'; edouard@3749: IF LREAL_TO_STRING(LREAL#42.0) <> '42' THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_INT'; edouard@3749: IF LREAL_TO_INT(LREAL#42.0) <> INT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_UINT'; edouard@3749: IF LREAL_TO_UINT(LREAL#42.0) <> UINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_WORD'; edouard@3749: IF LREAL_TO_WORD(LREAL#42.0) <> WORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_DINT'; edouard@3749: IF LREAL_TO_DINT(LREAL#42.0) <> DINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_UDINT'; edouard@3749: IF LREAL_TO_UDINT(LREAL#42.0) <> UDINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_DWORD'; edouard@3749: IF LREAL_TO_DWORD(LREAL#42.0) <> DWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_LINT'; edouard@3749: IF LREAL_TO_LINT(LREAL#42.0) <> LINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_ULINT'; edouard@3749: IF LREAL_TO_ULINT(LREAL#42.0) <> ULINT#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_LWORD'; edouard@3749: IF LREAL_TO_LWORD(LREAL#42.0) <> LWORD#42 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'LREAL_TO_REAL'; edouard@3749: IF LREAL_TO_REAL(LREAL#42.0) <> REAL#42.0 THEN RETURN; END_IF; edouard@3749: edouard@3749: edouard@3749: RESULT := 'OK'; edouard@3749: edouard@3749: ]]> edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: TRUE edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: 'CONVERSION: ' edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: DEBUG edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: 'TEMPO: ' edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: DEBUG edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: TRUE edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: 'OK' edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: 'OK' edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: DEBUG edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: 'ALL TESTS OK' edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: edouard@3749: