X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/6c7661760f39aed9979321042b3d703c7e7853ee..40ff80e56a57386d702617d101c049335f540eac:/src/smpi/smpiff.in

diff --git a/src/smpi/smpiff.in b/src/smpi/smpiff.in
index 42120a7198..0ab2d2877a 100644
--- a/src/smpi/smpiff.in
+++ b/src/smpi/smpiff.in
@@ -53,13 +53,15 @@ while [ $# -gt 0 ]; do
             list_add CMDLINE "-c"
             ;;
         *.f)
+            FILENAME=`basename ${ARG}`
             TMPFILE=$(mymktemp "${ARG}" ".f")
-            ORIGFILE="${ARG%.f}"
+            ORIGFILE="${FILENAME%.f}"
             filter_and_compile
             ;;
-        *.F)
+        *.F)$
+            FILENAME=`basename ${ARG}`
             TMPFILE=$(mymktemp "${ARG}" ".F")
-            ORIGFILE="${ARG%.F}"
+            ORIGFILE="${FILENAME%.F}"
             filter_and_compile
             ;;
         '-version' | '--version')