-#! /bin/sh
-
-F90=@GFORTRAN_EXE@
-
-INCLUDEARGS="@includeflag@"
-CMAKE_LINKARGS="-L@libdir@"
-
-FFLAGS="-ff2c -fno-second-underscore"
-LINKARGS="-lsimgrid -lm -lgfortran"
-main_name=main
-
-declare -a TMPFILES
-trap 'rm -f "${TMPFILES[@]}"' EXIT
-
-CMDLINE=""
-while [ -n "$1" ]; do
- ARG="$1"
- shift
- case "${ARG}" in
- -c)
- CMAKE_LINKARGS=""
- LINKARGS=""
- CMDLINE="${CMDLINE} -c "
- ;;
- *.f90|*.F90)
- TMPFILE=$(mktemp "${ARG}_XXXXXX.f90")
- 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}
+#!/usr/bin/env sh
+
+# Copyright (c) 2012-2022. The SimGrid Team. All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
+SIMGRID_VERSION="@SIMGRID_VERSION_STRING@"
+SIMGRID_GITHASH="@GIT_VERSION@"
+
+REAL_FORTRAN_COMPILER=@SMPI_Fortran_COMPILER@
+
+@SMPITOOLS_SH@
+
+list_set INCLUDEARGS @includeflag@
+list_set CMAKE_LINKARGS "-L@libdir@"
+
+list_set FFLAGS @SMPI_Fortran_FLAGS@
+list_set LINKARGS "-lsimgrid" @SMPI_Fortran_LIBS@ "-lm"
+if [ "x${SMPI_PRETEND_CC}" = "x" ]; then
+ list_add LINKARGS "-shared"
+ if [ "x${SMPI_NO_UNDEFINED_CHECK}" = "x" ]; then
+ if [ "x@APPLE@" != "x1" ]; then
+ list_add LINKARGS "-Wl,-z,defs"
+ else
+ list_add LINKARGS "-Wl,-undefined,error"
+ fi
+ fi
+else
+ echo "Warning: smpif90 pretends to be a regular compiler (SMPI_PRETEND_CC is set). Produced binaries will not be usable in SimGrid."
+fi
+list_set TMPFILES
+
+cleanup () {
+ eval $(list_get TMPFILES)
+ rm -f "$@"
+}
+trap 'cleanup' EXIT
+
+filter_and_compile() {
+ #replace "program main_name by subroutine user_main (and the end clause as well)"
+ if [ "x${SMPI_PRETEND_CC}" = "x" ] && [ "x${TMPFILE}" != "x" ]; then
+ list_add TMPFILES "${TMPFILE}"
+ if [ "$TRACE_CALL_LOCATION" -gt 0 ]; then
+ echo "#include \"@includedir@/smpi/smpi_extended_traces_fortran.h\"" > "${TMPFILE}"
+ echo "#line 1 \"${ARG}\"" >> "${TMPFILE}"
+ fi
+ sed 's/^\([[:space:]]*\)\([eE][nN][dD] \)\{0,1\}[pP][rR][oO][gG][rR][aA][mM][^a-zA-Z0-9]*\([a-zA-Z0-9_]*\)/\1\2subroutine user_main /g' "${ARG}" >> "${TMPFILE}"