1 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/class_79.f90 b/gcc/testsuite/gfortran.dg/class_79.f90
new file mode 100644
index 0000000..a2226e4
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/class_79.f90
@@ -0,0 +1,25 @@
+!{ dg-do run }
+
+! Check double free on array constructor in argument list is fixed.
+! Contributed by Damian Rouson  <damian@archaeologic.codes>
+program pr119349
+  implicit none
+  
+  type string_t
+    character(len=:), allocatable :: string_
+  end type
+
+  print *, true([string()])
+
+contains
+
+  type(string_t) function string()
+    string%string_ = ""
+  end function
+
+  logical elemental function true(rhs)
+    class(string_t), intent(in) :: rhs
+    true = .true.
+  end function
+
+end program