Re: [PATCH,FORTRAN] Fix memory leak of gsymbol

[Bernhard Reutner-Fischer <rep.dot.nop@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 263 bytes --]

> > The only caller is translate_all_program_units.
> > Since we free only module gsyms, even -fdump-fortran-global is
> > unaffected by this, fwiw.

AFAICS we do not have a test for -fdump-fortran-global
Do we want to add one, would the attached be OK?

thanks,

[-- Attachment #2: 0001-Fortran-add-testcase.patch --]
[-- Type: text/x-patch, Size: 1418 bytes --]

From 7e7856cf9ec88ab7fb48e7c73f9cc6495a4a9c22 Mon Sep 17 00:00:00 2001
From: Bernhard Reutner-Fischer <aldot@gcc.gnu.org>
Date: Sat, 30 Oct 2021 23:43:12 +0200
Subject: [PATCH] Fortran: add testcase

gcc/testsuite/ChangeLog:
2021-10-30  Bernhard Reutner-Fischer  <aldot@gcc.gnu.org>

	* gfortran.dg/dump-fortran-global-1.f90: New test.
---
 .../gfortran.dg/dump-fortran-global-1.f90     | 25 +++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90

diff --git a/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90 b/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90
new file mode 100644
index 00000000000..a8a1b15cce3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/dump-fortran-global-1.f90
@@ -0,0 +1,25 @@
+! { dg-do compile }
+! { dg-options "-fdump-fortran-global" }
+!
+! Test that -fdump-fortran-global works
+
+integer function myifun ()
+  myifun = 42
+end function myifun
+
+program testprogram
+  implicit none
+  interface
+    subroutine sub1()
+    end subroutine sub1
+  end interface
+  integer :: myifun
+  integer :: myint1 = 42
+  real :: myreal1 = .0815
+  if (myreal1 > 1.0) stop 1
+  if (myint1 < 1) stop 2
+  if (myint1 /= myifun()) stop 3
+end program testprogram
+! { dg-output "\[\n\r]*name=myifun, sym_name=myifun\[\n\r]" }
+! { dg-output "\[\n\r]*name=testprogram\[\n\r]" }
+! { dg-prune-output "\[\n\r]*" }
-- 
2.33.0