Hello, The attached file is an example of how tangle wraps the Fortran module in program main end program main which prevents the code from compiling. There are more instructions on how to reproduce the bug in the attached bug.org file. Paul Emacs : GNU Emacs 28.2 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.24.37, cairo version 1.16.0) of 2023-03-16, modified by Debian Package: Org mode version 9.7-pre (release_9.6.7-581-gd38ca5 @ /home/ps/.emacs.d_Kubuntu-23.04/org-mode-git/lisp/) current state: ============== (setq org-link-elisp-confirm-function 'yes-or-no-p org-bibtex-headline-format-function 'org-bibtex-headline-format-default org-log-done 'time org-fontify-done-headline nil org-log-into-drawer t org-startup-folded t org-persist-after-read-hook '(org-element--cache-persist-after-read) org-format-latex-options '(:foreground "Yellow" :background default :scale 1.2 :html-foreground "Black" :html-background "Transparent" :html-scale 1.07 :matchers ("begin" "$1" "$" "$$" "\\(" "\\[")) org-export-before-parsing-hook '(org-attach-expand-links) org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-archive-hook '(org-attach-archive-delete-maybe) org-file-apps '((auto-mode . emacs) ("\\.odt\\'" . "libreoffice %s") ("\\.docx\\'" . "libreoffice %s") ("\\.xlsx\\'" . "libreoffice %s") ("\\.png\\'" . "xv %s") ("\\.jpg\\'" . "xv %s") ("\\.jpeg\\'" . "xv %s") ("\\.webp\\'" . "xv %s") ("\\.pdf\\'" . "okular \"%s\"") ("\\.xoj" . "xournal %s") ("\\.xopp" . "xournalpp %s")) org-odt-format-inlinetask-function 'org-odt-format-inlinetask-default-function org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS WIDTH)"] org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines org-cycle-optimize-window-after-visibility-change org-cycle-display-inline-images) org-persist-before-read-hook '(org-element--cache-persist-before-read) org-mode-hook '(#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-fold-show-all append local] 5] #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes) org-babel-load-languages '((R . t) (emacs-lisp . t) (gnuplot . t) (octave . t) (python . t) (fortran . t) (sql . t) (ditaa . t) (dot . t) (shell . t)) org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"] org-latex-format-headline-function 'org-latex-format-headline-default-function org-confirm-shell-link-function 'yes-or-no-p org-adapt-indentation t org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] outline-isearch-open-invisible-function 'outline-isearch-open-invisible org-highlight-latex-and-related '(latex) org-odt-format-headline-function 'org-odt-format-headline-default-function org-agenda-before-write-hook '(org-agenda-add-entry-text) org-babel-tangle-lang-exts '(("fortran" . "F90") ("python" . "py") ("emacs-lisp" . "el") ("elisp" . "el")) org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-confirm-elisp-link-function 'yes-or-no-p org-clock-out-remove-zero-time-clocks t org-hide-leading-stars t org-todo-keywords '((sequence "TODO(t!)" "MAYBE(m!)" "STARTED(s!)" "WAITING(w@/!)" "|" "DONE(d)" "INFO(i!)" "CANCELLED(c@)" "UNFINISHED(u@)" "ABANDONED(a@)") ) org-id-link-to-org-use-id t org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate) org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"] org-confirm-babel-evaluate nil org-fold-core-isearch-open-function 'org-fold--isearch-reveal org-clock-in-switch-to-state "STARTED" org-clock-persist 'history org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function org-persist-before-write-hook '(org-element--cache-persist-before-write) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-link-shell-confirm-function 'yes-or-no-p org-babel-pre-tangle-hook '(save-buffer) org-clock-display-default-range 'untilnow org-agenda-loop-over-headlines-in-active-region nil org-todo-keyword-faces '(("TODO" :foreground "light pink" :weight bold) ("MAYBE" :foreground "light pink" :weight bold) ("STARTED" :foreground "gold" :weight bold) ("DONE" :foreground "light green" :weight bold) ("WAITING" :foreground "gold" :weight bold) ("CANCELLED" :foreground "light green" :weight bold) ("UNFINISHED" :foreground "light green" :weight bold) ("ABANDONED" :foreground "light green" :weight bold)) org-occur-hook '(org-first-headline-recenter) org-export-with-drawers '("LATEX_DRAW") org-metadown-hook '(org-babel-pop-to-session-maybe) org-link-parameters '(("attachment" :follow org-attach-follow :complete org-attach-complete-link) ("eww" :follow org-eww-open :store org-eww-store-link) ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link :export org-irc-export) ("info" :follow org-info-open :export org-info-export :store org-info-store-link :insert-description org-info-description-as-command) ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("doi" :follow org-link-doi-open :export org-link-doi-export) ("id" :follow org-id-open) ("file+sys") ("file+emacs") ("shell" :follow org-link--open-shell) ("news" :follow #[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("mailto" :follow #[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("https" :follow #[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("http" :follow #[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("ftp" :follow #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6 "\n\n(fn URL ARG)"] ) ("help" :follow org-link--open-help :store org-link--store-help) ("file" :complete org-link-complete-file) ("elisp" :follow org-link--open-elisp)) org-html-format-headline-function 'org-html-format-headline-default-function org-metaup-hook '(org-babel-load-in-session-maybe) org-clock-history-length 28 org-clock-into-drawer "CLOCK" )