X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/2bd9a37bbb72eac4ed613b3d6953aba6555e2e92..2bcb5dd3317c733c31c288ae79e72fb28863d936:/src/smpi/smpif90.in diff --git a/src/smpi/smpif90.in b/src/smpi/smpif90.in index 1e6a7e6703..04a16d67cb 100644 --- a/src/smpi/smpif90.in +++ b/src/smpi/smpif90.in @@ -9,7 +9,7 @@ SIMGRID_VERSION="@SIMGRID_VERSION_STRING@" SIMGRID_GITHASH="@SIMGRID_GITHASH@" -F90=@GFORTRAN_EXE@ +F90=@SAVED_Fortran_COMPILER@ INCLUDEARGS="@includeflag@" CMAKE_LINKARGS="-L@libdir@" @@ -27,6 +27,14 @@ cleanup () { } trap 'cleanup' EXIT +filter_and_compile() { + list_add TMPFILES "${TMPFILE}" +#replace "program main_name by subroutine user\_main (and the end clause as well)" + sed 's/[[:space:]]*[pP][rR][oO][gG][rR][aA][mM][[:space:]]*\([a-zA-Z0-9\-\_]*\)/ subroutine user\_main /g;s/[[:space:]]*[uU][sS][eE][[:space:]]*[mM][pP][iI]/\include \"mpif\.h\" /g' "${ARG}" > "${TMPFILE}" + SRCFILE="${TMPFILE}" + list_add CMDLINE "${SRCFILE}" +} + list_set CMDLINE "${F90}" list_add_not_empty CMDLINE "${FFLAGS}" while [ $# -gt 0 ]; do @@ -38,13 +46,13 @@ while [ $# -gt 0 ]; do LINKARGS="" list_add CMDLINE "-c" ;; - *.f90|*.F90) + *.f90) TMPFILE=$(mymktemp "${ARG}" ".f90") - list_add 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}" - list_add CMDLINE "${SRCFILE}" + filter_and_compile + ;; + *.F90) + TMPFILE=$(mymktemp "${ARG}" ".F90") + filter_and_compile ;; '-version' | '--version') printf '%b\n' "$SIMGRID_VERSION" @@ -57,6 +65,10 @@ while [ $# -gt 0 ]; do '-compiler-version' | '--compiler-version') ${F90} --version ;; + -o) + list_add CMDLINE "-o$1" + shift + ;; *) list_add CMDLINE "${ARG}" ;;