3
# This file is part of Rheolef.
5
# Copyright (C) 2000-2009 Pierre Saramito
7
# Rheolef is free software; you can redistribute it and/or modify
8
# it under the terms of the GNU General Public License as published by
9
# the Free Software Foundation; either version 2 of the License, or
10
# (at your option) any later version.
12
# Rheolef is distributed in the hope that it will be useful,
13
# but WITHOUT ANY WARRANTY; without even the implied warranty of
14
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15
# GNU General Public License for more details.
17
# You should have received a copy of the GNU General Public License
18
# along with Rheolef; if not, write to the Free Software
19
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
21
# -------------------------------------------------------------------------
23
# bug: des que n<np : vecteur localement nul et ca plante
24
# mais T=geo_element tandisque T=double est ok (vec_io_tst)
27
TOP_SRCDIR=${TOP_SRCDIR-"../.."}
28
NPROC_MAX=${NPROC_MAX-"7"}
29
. "${TOP_SRCDIR}/config/loop_mpirun.sh"
36
loop_mpirun "./polymorphic_array_element_io_tst < bielle.dat 2>/dev/null | diff -B -w - bielle.dat >/dev/null"
37
if test $? -ne 0; then status=1; fi
39
for i in 101 5 4 3 2 1; do
40
run "echo | LANG=C awk -v n=${i} -f ${SRCDIR}/gen_array_element.awk > array_element-${i}.dat"
41
if test $? -ne 0; then status=1; break; fi
43
loop_mpirun "./polymorphic_array_element_io_tst < array_element-${i}.dat 2>/dev/null | diff -B -w - array_element-${i}.dat >/dev/null"
44
if test $? -ne 0; then status=1; fi
46
run "rm -f array_element-${i}.dat"
47
if test $? -ne 0; then status=1; break; fi