1b1994897Sopenharmony_ci# Copyright (c) 2021-2022 Huawei Device Co., Ltd.
2b1994897Sopenharmony_ci# Licensed under the Apache License, Version 2.0 (the "License");
3b1994897Sopenharmony_ci# you may not use this file except in compliance with the License.
4b1994897Sopenharmony_ci# You may obtain a copy of the License at
5b1994897Sopenharmony_ci#
6b1994897Sopenharmony_ci# http://www.apache.org/licenses/LICENSE-2.0
7b1994897Sopenharmony_ci#
8b1994897Sopenharmony_ci# Unless required by applicable law or agreed to in writing, software
9b1994897Sopenharmony_ci# distributed under the License is distributed on an "AS IS" BASIS,
10b1994897Sopenharmony_ci# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
11b1994897Sopenharmony_ci# See the License for the specific language governing permissions and
12b1994897Sopenharmony_ci# limitations under the License.
13b1994897Sopenharmony_ci#
14b1994897Sopenharmony_ci# The following comment until the empty line must be a valid YAML document
15b1994897Sopenharmony_ci# containing exact copies of ISA specification assertions relevant to this test.
16b1994897Sopenharmony_ci#---
17b1994897Sopenharmony_ci#   - title: Load from array
18b1994897Sopenharmony_ci#     description: >
19b1994897Sopenharmony_ci#       Load an element from array using accumulator as an index and puts it into accumulator.
20b1994897Sopenharmony_ci#     instructions:
21b1994897Sopenharmony_ci#       - sig: fldarr.32 vs
22b1994897Sopenharmony_ci#         format: [op_vs_8]
23b1994897Sopenharmony_ci#         type: obj
24b1994897Sopenharmony_ci#         dtype: f32
25b1994897Sopenharmony_ci#         etype: f32
26b1994897Sopenharmony_ci#         properties: [acc_read, acc_write, float]
27b1994897Sopenharmony_ci#   - title: Store to array
28b1994897Sopenharmony_ci#     description: >
29b1994897Sopenharmony_ci#       Store accumulator content into array slot pointed by index.
30b1994897Sopenharmony_ci#     instructions:
31b1994897Sopenharmony_ci#       - sig: fstarr.32 vs1, vs2
32b1994897Sopenharmony_ci#         format: [op_vs1_4_vs2_4]
33b1994897Sopenharmony_ci#         type: f32
34b1994897Sopenharmony_ci#         dtype: none
35b1994897Sopenharmony_ci#         etype: f32
36b1994897Sopenharmony_ci#         properties: [acc_read, float]
37b1994897Sopenharmony_ci
38b1994897Sopenharmony_ci#assert that operations with array of f32 works fine
39b1994897Sopenharmony_ci#i32 i;
40b1994897Sopenharmony_ci#for(i=0; i<7; i++) array[i]=(float)i;
41b1994897Sopenharmony_ci#for(i=6; i>=0; i--) assert_eq((float)i, array[i]);
42b1994897Sopenharmony_ci
43b1994897Sopenharmony_ci.function i32 main(){
44b1994897Sopenharmony_ci    movi v0, 7
45b1994897Sopenharmony_ci    newarr v1, v0, f32[]
46b1994897Sopenharmony_ci    movi v2, 0
47b1994897Sopenharmony_ci    ldai 0
48b1994897Sopenharmony_ciloop:
49b1994897Sopenharmony_ci    jeq v0, loop_exit
50b1994897Sopenharmony_ci    i32tof32
51b1994897Sopenharmony_ci    fstarr.32 v1, v2
52b1994897Sopenharmony_ci    inci v2, 1
53b1994897Sopenharmony_ci    lda v2
54b1994897Sopenharmony_ci    jmp loop
55b1994897Sopenharmony_ciloop_exit:
56b1994897Sopenharmony_ci    subi 1
57b1994897Sopenharmony_ci    sta v2
58b1994897Sopenharmony_ciloop2:
59b1994897Sopenharmony_ci    jltz loop2_exit
60b1994897Sopenharmony_ci    lda v2
61b1994897Sopenharmony_ci    i32tof32
62b1994897Sopenharmony_ci    sta v3
63b1994897Sopenharmony_ci    lda v2
64b1994897Sopenharmony_ci    fldarr.32 v1
65b1994897Sopenharmony_ci    fsub2 v3
66b1994897Sopenharmony_ci    sta v3
67b1994897Sopenharmony_ci    call.short abs, v3, v3
68b1994897Sopenharmony_ci    sta v3
69b1994897Sopenharmony_ci    fldai 1e-6
70b1994897Sopenharmony_ci    fcmpl v3
71b1994897Sopenharmony_ci    jlez exit_failure
72b1994897Sopenharmony_ci    inci v2, -1
73b1994897Sopenharmony_ci    lda v2
74b1994897Sopenharmony_ci    jmp loop2
75b1994897Sopenharmony_ciloop2_exit:
76b1994897Sopenharmony_ci    ldai 0
77b1994897Sopenharmony_ci    return
78b1994897Sopenharmony_ciexit_failure:
79b1994897Sopenharmony_ci    ldai 1
80b1994897Sopenharmony_ci    return
81b1994897Sopenharmony_ci}
82b1994897Sopenharmony_ci
83b1994897Sopenharmony_ci.function f32 abs(f32 a0){
84b1994897Sopenharmony_ci    fldai 0.0
85b1994897Sopenharmony_ci    fcmpl a0
86b1994897Sopenharmony_ci    jlez label
87b1994897Sopenharmony_ci    lda a0
88b1994897Sopenharmony_ci    fneg
89b1994897Sopenharmony_ci    return
90b1994897Sopenharmony_cilabel:
91b1994897Sopenharmony_ci    lda a0
92b1994897Sopenharmony_ci    return
93b1994897Sopenharmony_ci}
94b1994897Sopenharmony_ci
95