From 1dfdfd53c6d8dbb99e11e76ec9924665f8ee77bd Mon Sep 17 00:00:00 2001
From: Colin Woodbury <colin@fosskers.ca>
Date: Tue, 24 May 2022 13:55:11 -0700
Subject: [PATCH] feat(fortran): name executable after the file name

Previously the output was always the default `a.out`. Note that this is
only for the single-file non-fpm case, where the user just wants to
compile and run a one-off Fortran program.
---
 modules/lang/fortran/autoload.el | 41 +++++++++++++++++++-------------
 1 file changed, 25 insertions(+), 16 deletions(-)

diff --git a/modules/lang/fortran/autoload.el b/modules/lang/fortran/autoload.el
index cc8ac2b64..86bceec67 100644
--- a/modules/lang/fortran/autoload.el
+++ b/modules/lang/fortran/autoload.el
@@ -27,23 +27,31 @@ or gfortran, depending on what feature flags are set."
         ((featurep! +intel) (+fortran/ifort-run))
         (t (+fortran/gfortran-run))))
 
-;; Intel Fortran
+(defun +fortran--exec-name ()
+  "The name of the output executable."
+  (file-name-sans-extension buffer-file-name))
+
+;;
+;;; Intel Fortran
+
 ;;;###autoload
 (defun +fortran/ifort-compile ()
   "Compile the current buffer using ifort."
   (interactive)
-  (compile (format "ifort %S"
-                   (buffer-file-name))))
+  (compile (format "ifort %S -o %S"
+                   (buffer-file-name)
+                   (+fortran--exec-name))))
 
 ;;;###autoload
 (defun +fortran/ifort-run ()
   "Run the current buffer using ifort."
   (interactive)
-  (delete-file "./a.out")
-  (+fortran/ifort-compile)
-  (while (not (file-exists-p "./a.out"))
-    (sleep-for 1))
-  (compile "./a.out"))
+  (let ((exec (+fortran--exec-name)))
+    (delete-file exec)
+    (+fortran/ifort-compile)
+    (while (not (file-exists-p exec))
+      (sleep-for 1))
+    (compile (format "%S" exec))))
 
 ;;
 ;;; GFortran
@@ -63,20 +71,21 @@ or gfortran, depending on what feature flags are set."
 (defun +fortran/gfortran-compile ()
   "Compile the current buffer using gfortran."
   (interactive)
-  (compile (format "gfortran %s %S"
+  (compile (format "gfortran %s %S -o %S"
                    (+fortran--std)
-                   buffer-file-name)))
+                   buffer-file-name
+                   (+fortran--exec-name))))
 
 ;;;###autoload
 (defun +fortran/gfortran-run ()
   "Run the current buffer using gfortran."
   (interactive)
-  (delete-file "./a.out")
-  (+fortran/gfortran-compile)
-  (while (not (file-exists-p "./a.out"))
-    (sleep-for 1))
-  (compile "./a.out"))
-
+  (let ((exec (+fortran--exec-name)))
+    (delete-file exec)
+    (+fortran/gfortran-compile)
+    (while (not (file-exists-p exec))
+      (sleep-for 1))
+    (compile (format "%S" exec))))
 
 ;;
 ;;; FPM