X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/3380ca3d792a37cdccf63681c0db8d30b346b812..281c82411d0384fef85a37c39dc940ec2255f271:/src/smpi/smpif90.in diff --git a/src/smpi/smpif90.in b/src/smpi/smpif90.in index dadde6e732..64748ca418 100644 --- a/src/smpi/smpif90.in +++ b/src/smpi/smpif90.in @@ -1,6 +1,6 @@ -#! /bin/bash +#! /bin/sh -CC=gfortran +F90=@GFORTRAN_EXE@ INCLUDEARGS="@includeflag@" CMAKE_LINKARGS="-L@libdir@" @@ -8,7 +8,26 @@ CMAKE_LINKARGS="-L@libdir@" FFLAGS="-ff2c -fno-second-underscore" LINKARGS="-lsimgrid -lm -lgfortran" main_name=main -TMPFILE=$(mktemp).f90 + +trap 'rm -f ${TMPFILES}' EXIT + +# $1: prefix, $2: suffix +mymktemp () { + tmp=$(mktemp --suffix="$2" "$1_XXXXXXXXXX" 2> /dev/null) + if [ -z "$tmp" ]; then + # mktemp failed (unsupported --suffix ?), try unsafe mode + tmp=$(mktemp -u "$1_XXXXXXXXXX" 2> /dev/null) + if [ -z "$tmp" ]; then + # mktemp failed again (doesn't exist ?), try very unsafe mode + tmp="$1_$$x$RANDOM" + fi + tmp="${tmp}$2" + # create temp file, and exit if it existed before + sh -C -c "true > \"${tmp}\"" || exit 1 + fi + echo "${tmp}" +} + CMDLINE="" while [ -n "$1" ]; do ARG="$1" @@ -20,12 +39,8 @@ while [ -n "$1" ]; do CMDLINE="${CMDLINE} -c " ;; *.f90|*.F90) - SRCFILE="$(readlink -f ${ARG} 2>/dev/null)" - if [ -z $SRCFILE ] ; then - SRCFILE="$ARG" - fi - - TMPFILE=${ARG}\_$RANDOM.f90 + TMPFILE=$(mymktemp "${ARG}" ".f90") + TMPFILES="${TMPFILES} ${TMPFILE}" #replace "program main_name by subroutine user\_main (and the end clause as well)" sed 's/[[:space:]]*program[[:space:]]*\([a-zA-Z0-9\-\_]*\)/subroutine user\_main /gI;s/[[:space:]]*use[[:space:]]*mpi/\include \"mpif\.h\" /gI' ${ARG} > ${TMPFILE} SRCFILE="${TMPFILE}" @@ -37,11 +52,7 @@ while [ -n "$1" ]; do esac done -CMDLINE="${CC} ${FFLAGS} ${CMDLINE} ${INCLUDEARGS} ${CMAKE_LINKARGS} ${LINKARGS}" +CMDLINE="${F90} ${FFLAGS} ${CMDLINE} ${INCLUDEARGS} ${CMAKE_LINKARGS} ${LINKARGS}" #echo "${CMDLINE}" ${CMDLINE} - -if [ -f ${TMPFILE} ];then - rm ${TMPFILE} -fi