blob: b09940549bd6d80a8e7d4793c1bb458df88b7545 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
#!/bin/bash
# $Id$
# Copyright 2014 Eric Hameleers, Eindhoven, NL
# Distributed under the GNU General Public License, version 2, as
# published by the Free Software Foundation.
# Find the stub gfortran's directory:
STUBPATH=$(cd $(dirname $0); pwd)
# Now find the "real" gfortran
REALFC=$(PATH="$(echo $PATH | sed "s#\(.*\):\?$STUBPATH/\?:\?#\1#")" which $(basename $0))
# Filter out -m64 from $@ (this is sometimes added even though we specify -m32)
declare -a Arguments
for i; do
case "$i" in
-m64)
;;
*)
Arguments[${#Arguments[@]}]="$i"
;;
esac
done
# Compiling a 32bit program requires we call gfortran with -m32
$REALFC -m32 "${Arguments[@]}"
# Exit with $REALFC's exit code
exit $?
|