blob: 0d1b8123978c652ee9d7d883cd461bce07c61681 [file] [log] [blame]
#-------------------------------------------------------------
#
# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements. See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership. The ASF licenses this file
# to you under the Apache License, Version 2.0 (the
# "License"); you may not use this file except in compliance
# with the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing,
# software distributed under the License is distributed on an
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, either express or implied. See the License for the
# specific language governing permissions and limitations
# under the License.
#
#-------------------------------------------------------------
# Required parameters
A = matrix(0.5, rows=$1, cols=$2);
B = matrix(0.5, rows=$1, cols=$2);
C = matrix(0.5, rows=$1, cols=$2);
D = matrix(0.5, rows=$1, cols=$2);
# Set defaults for optional parameters
rowsV = ifdef($5, 0)
colsV = ifdef($6, 0)
# Original matrix tests
r1 = sum(A*B + C*D);
r2 = r1;
# Vector tests
if (rowsV != 0 & colsV != 0) {
V = matrix(0.5, rows=rowsV, cols=colsV);
r3 = sum(A + V);
r4 = r3;
}
write(r1, $3);
write(r2, $4);
if (rowsV != 0 & colsV != 0) {
write(r3, $5);
write(r4, $6);
}