diff options
| author | Tristan Gingold <tgingold@free.fr> | 2023-03-15 20:36:44 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2023-03-15 20:36:44 +0100 |
| commit | e949ea7b157c791e0604bba89bdd99d7595c1a39 (patch) | |
| tree | 9cc89e9483ff0b69928c494d1a53919bb0593757 | |
| parent | 5ccffed6e738fcb225aad4c4872aff043f07ae4b (diff) | |
| download | ghdl-e949ea7b157c791e0604bba89bdd99d7595c1a39.tar.gz ghdl-e949ea7b157c791e0604bba89bdd99d7595c1a39.tar.bz2 ghdl-e949ea7b157c791e0604bba89bdd99d7595c1a39.zip | |
testsuite/gna: add a test for #2393
| -rw-r--r-- | testsuite/gna/issue2393/cast_enum1.vhdl | 91 | ||||
| -rwxr-xr-x | testsuite/gna/issue2393/testsuite.sh | 11 |
2 files changed, 102 insertions, 0 deletions
diff --git a/testsuite/gna/issue2393/cast_enum1.vhdl b/testsuite/gna/issue2393/cast_enum1.vhdl new file mode 100644 index 000000000..5b2da7c58 --- /dev/null +++ b/testsuite/gna/issue2393/cast_enum1.vhdl @@ -0,0 +1,91 @@ +library ieee; +use work.all; +use std.env.all; + +entity cast_enum1 is +end entity; + +architecture tb of cast_enum1 is + + type em_t is ( + M0, M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12, M13, M14, M15, + M16, M17, M18, M19, M20, M21, M22, M23, M24, M25, M26, M27, M28, M29, M30, M31, + M32, M33, M34, M35, M36, M37, M38, M39, M40, M41, M42, M43, M44, M45, M46, M47, + M48, M49, M50, M51, M52, M53, M54, M55, M56, M57, M58, M59, M60, M61, M62, M63, + M64, M65, M66, M67, M68, M69, M70, M71, M72, M73, M74, M75, M76, M77, M78, M79, + M80, M81, M82, M83, M84, M85, M86, M87, M88, M89, M90, M91, M92, M93, M94, M95, + M96, M97, M98, M99, M100, M101, M102, M103, M104, M105, M106, M107, M108, M109, M110, M111, + M112, M113, M114, M115, M116, M117, M118, M119, M120, M121, M122, M123, M124, M125, M126, M127, + M128, M129, M130, M131, M132, M133, M134, M135, M136, M137, M138, M139, M140, M141, M142, M143, + M144, M145, M146, M147, M148, M149, M150, M151, M152, M153, M154, M155, M156, M157, M158, M159, + M160, M161, M162, M163, M164, M165, M166, M167, M168, M169, M170, M171, M172, M173, M174, M175, + M176, M177, M178, M179, M180, M181, M182, M183, M184, M185, M186, M187, M188, M189, M190, M191, + M192, M193, M194, M195, M196, M197, M198, M199, M200, M201, M202, M203, M204, M205, M206, M207, + M208, M209, M210, M211, M212, M213, M214, M215, M216, M217, M218, M219, M220, M221, M222, M223, + M224, M225, M226, M227, M228, M229, M230, M231, M232, M233, M234, M235, M236, M237, M238, M239, + M240, M241, M242, M243, M244, M245, M246, M247, M248, M249, M250, M251, M252, M253, M254, M255, + M256, M257, M258, M259, M260, M261, M262, M263, M264, M265, M266, M267, M268, M269, M270, M271, + M272, M273, M274, M275, M276, M277, M278, M279, M280, M281, M282, M283, M284, M285, M286, M287, + M288, M289, M290, M291, M292, M293, M294, M295, M296, M297, M298, M299, M300, M301, M302, M303, + M304, M305, M306, M307, M308, M309, M310, M311, M312, M313, M314, M315, M316, M317, M318, M319, + M320, M321, M322, M323, M324, M325, M326, M327, M328, M329, M330, M331, M332, M333, M334, M335, + M336, M337, M338, M339, M340, M341, M342, M343, M344, M345, M346, M347, M348, M349, M350, M351, + M352, M353, M354, M355, M356, M357, M358, M359, M360, M361, M362, M363, M364, M365, M366, M367, + M368, M369, M370, M371, M372, M373, M374, M375, M376, M377, M378, M379, M380, M381, M382, M383, + M384, M385, M386, M387, M388, M389, M390, M391, M392, M393, M394, M395, M396, M397, M398, M399, + M400, M401, M402, M403, M404, M405, M406, M407, M408, M409, M410, M411, M412, M413, M414, M415, + M416, M417, M418, M419, M420, M421, M422, M423, M424, M425, M426, M427, M428, M429, M430, M431, + M432, M433, M434, M435, M436, M437, M438, M439, M440, M441, M442, M443, M444, M445, M446, M447, + M448, M449, M450, M451, M452, M453, M454, M455, M456, M457, M458, M459, M460, M461, M462, M463, + M464, M465, M466, M467, M468, M469, M470, M471, M472, M473, M474, M475, M476, M477, M478, M479, + M480, M481, M482, M483, M484, M485, M486, M487, M488, M489, M490, M491, M492, M493, M494, M495, + M496, M497, M498, M499, M500, M501, M502, M503, M504, M505, M506, M507, M508, M509, M510, M511 + ); + + subtype em_st is em_t range M0 to M255; + + type em_arr_t is array(natural range <>) of em_t; + type ems_arr_t is array(natural range <>) of em_st; + +begin + + process + variable em_v : em_t; + variable ems_v : em_st; + + variable em_arr : em_arr_t(31 downto 0); + variable ems_arr : ems_arr_t(31 downto 0); + begin + em_v := M127; + ems_v := em_v; + report em_st'image(ems_v); + ems_v := m255; + em_v := ems_v; + report em_t'image(em_v); + + -- now fill array + em_v := m0; + for i in em_arr'range loop + em_arr(i) := em_t'succ(em_v); + if (em_v /= em_t'right) then + em_v := em_t'succ(em_v); + end if; + end loop; + + for i in em_arr'range loop + assert em_arr(i) = em_st'val(32-i) + report em_t'image(em_arr(i)) + severity failure; + end loop; + + ems_arr := ems_arr_t(em_arr); + + for i in ems_arr'range loop + assert ems_arr(i) = em_st'val(32-i) + report em_st'image(ems_arr(i)) + severity failure; + end loop; + wait; + end process; + +end tb; diff --git a/testsuite/gna/issue2393/testsuite.sh b/testsuite/gna/issue2393/testsuite.sh new file mode 100755 index 000000000..64eb7694b --- /dev/null +++ b/testsuite/gna/issue2393/testsuite.sh @@ -0,0 +1,11 @@ +#! /bin/sh + +. ../../testenv.sh + +export GHDL_STD_FLAGS=--std=08 +analyze cast_enum1.vhdl +elab_simulate cast_enum1 + +clean + +echo "Test successful" |