gcc/testsuite/gm2/iso/run/pass/simple

   1 #!/bin/sh
   2
   3 # Copyright (C) 2005-2024 Free Software Foundation, Inc.
   4 # This file is part of GNU Modula-2.
   5 #
   6 # GNU Modula-2 is free software; you can redistribute it and/or modify it under
   7 # the terms of the GNU General Public License as published by the Free
   8 # Software Foundation; either version 2, or (at your option) any later
   9 # version.
  10 #
  11 # GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 # for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along
  17 # with gm2; see the file COPYING.  If not, write to the Free Software
  18 # Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  19
  20
  21 function runit () {
  22    ./a.out
  23     code=$?
  24     if [ $code != 0 ] ; then
  25        echo $1 failed with $code
  26     fi
  27 }
  28
  29 gm2 -I. -Wiso -g $1 -c shift.mod
  30 gm2 -I. -Wiso -g $1 -c shift2.mod
  31 gm2 -I. -Wiso -g $1 -c -Wcpp testsystem.mod
  32 gm2 -I. -Wiso -g $1 -c ../../../../../gm2/gm2-iso/SYSTEM.mod
  33
  34 gm2 -I. -Wiso -g $1 shift.mod
  35 runit shift.mod
  36 gm2 -I. -Wiso -g $1 shift2.mod
  37 runit shift2.mod
  38 gm2 -I. -Wiso -g $1 testsystem.mod
  39 runit testsystem.mod