From: Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de>
Date: Thu, 15 Jul 2004 14:59:15 +0000 (+0200)
Subject: re PR fortran/15324 (segfault / ICE with array of assumed length characters)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=610bff8401024f41616666692cba8b0909f97fe5;p=gcc.git

re PR fortran/15324 (segfault / ICE with array of assumed length characters)

PR fortran/15324
* gfortran.dg/pr15324.f90: New test.

From-SVN: r84754
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 5d763cc2f27..69cd43e3afc 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-15  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	PR fortran/15324
+	* gfortran.dg/pr15324.f90: New test.
+
 2004-07-14  Mike Stump  <mrs@apple.com>
 
 	* gcc.dg/20020426-2.c: Improve type safety wrt unsignedness.
diff --git a/gcc/testsuite/gfortran.dg/pr15324.f90 b/gcc/testsuite/gfortran.dg/pr15324.f90
new file mode 100644
index 00000000000..ce534633146
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr15324.f90
@@ -0,0 +1,22 @@
+! { dg-do run }
+! PR 15234
+! tests for passing arrays of assumed length characters
+program strarray_6
+character(5), dimension(:), allocatable :: c
+n = 3
+allocate(c(-1:n-1))
+c = "BLUBB"
+call foo(c)
+call bar(c,n)
+deallocate(c)
+contains
+subroutine foo(x)
+  character (len = *), dimension(:) :: x
+  if (any (x .ne. "BLUBB")) CALL abort()
+end subroutine foo
+end
+
+subroutine bar(x,n)
+  character (len = *), dimension(n) :: x
+  if (any (x .ne. "BLUBB")) CALL abort()
+end subroutine bar