83 lines
2.7 KiB
Bash
Executable file
83 lines
2.7 KiB
Bash
Executable file
#!/usr/bin/env bash
|
|
# Copyright (c) 2019, NVIDIA CORPORATION. All rights reserved.
|
|
#
|
|
# Licensed 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.
|
|
|
|
# This script verifies expression folding.
|
|
# It compiles a source file with '-fdebug-dump-symbols' and looks for
|
|
# parameter declarations to check they have been folded as expected.
|
|
# To check folding of an expression EXPR, the fortran program passed to this script
|
|
# must contain the following:
|
|
# logical, parameter :: test_x = <compare EXPR to expected value>
|
|
# This script will test that all parameter with a name starting with "test_" have
|
|
# been folded to .true.
|
|
# For instance, acos folding can be tested with:
|
|
#
|
|
# real(4), parameter :: res_acos = acos(0.5_4)
|
|
# real(4), parameter :: exp_acos = 1.047
|
|
# logical, parameter :: test_acos = abs(res_acos - exp_acos).LE.(0.001_4)
|
|
#
|
|
# There are two kinds of failure:
|
|
# - test_x is folded to .false.. This means the expression was folded
|
|
# but the value is not as expected.
|
|
# - test_x is not folded (it is neither .true. nor .false.). This means the
|
|
# compiler could not fold the expression.
|
|
|
|
|
|
|
|
PATH=/usr/bin:/bin
|
|
srcdir=$(dirname $0)
|
|
CMD="${F18:-../../tools/f18/f18} -fdebug-dump-symbols -fparse-only"
|
|
|
|
if [[ $# != 1 ]]; then
|
|
echo "Usage: $0 <fortran-source>"
|
|
exit 1
|
|
fi
|
|
src=$srcdir/$1
|
|
[[ ! -f $src ]] && echo "File not found: $src" && exit 1
|
|
|
|
temp=temp-$1
|
|
rm -rf $temp
|
|
mkdir $temp
|
|
[[ $KEEP ]] || trap "rm -rf $temp" EXIT
|
|
|
|
src1=$temp/symbols.log
|
|
src2=$temp/all_parameters.log
|
|
src3=$temp/tested_parameters.log
|
|
src4=$temp/failures.log
|
|
|
|
$CMD $src > $src1 # compile, dumping symbols
|
|
|
|
# Get all PARAMETER declarations
|
|
sed -e '/, PARAMETER/!d' -e 's/, PARAMETER.*init:/ /' \
|
|
-e 's/^ *//' $src1 > $src2
|
|
|
|
# Collect test results
|
|
sed -e '/^test_/!d' $src2 > $src3
|
|
|
|
# Check all tests results (keep tests that do not resolve to true)
|
|
sed -e '/\.true\._.$/d' $src3 > $src4
|
|
|
|
if [[ -s $src4 ]]; then
|
|
echo "folding test failed:"
|
|
# Print failed tests (It will actually print all parameters
|
|
# that have the same suffix as the failed test so that one can get more info
|
|
# by declaring expected_x and result_x for instance)
|
|
sed -e 's/test_/_/' -e 's/ .*//' $src4 | grep -f - $src2
|
|
echo FAIL
|
|
exit 1
|
|
else
|
|
passed="$(wc -l $src3 | sed 's/ .*//')"
|
|
echo all $passed tests passed
|
|
echo PASS
|
|
fi
|