From 574433ea7ee991ebdf533cd08fa480dbb747a430 Mon Sep 17 00:00:00 2001 From: Leigh Orf Date: Tue, 5 May 2026 16:23:09 +0000 Subject: [PATCH] item_28.sh: Count number of gotos in sorc directory --- ush/item_28.sh | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100755 ush/item_28.sh diff --git a/ush/item_28.sh b/ush/item_28.sh new file mode 100755 index 0000000..0c650a3 --- /dev/null +++ b/ush/item_28.sh @@ -0,0 +1,11 @@ +#!/bin/bash + +#Leigh Orf +#Purpose: To count the number of GOTOs in the sorc directory +#Usage: item_28.sh [package_directory] + +PACKAGE_DIR="$1" + +SORC_DIR=${PACKAGE_DIR}/sorc + +find $SORC_DIR -iname '*.f' -o -iname '*.f90' -o -iname '*.f95' | xargs grep -i "goto" | wc -l