re PR fortran/15164 (trans-decl.c:411: gfc_finish_var_decl: Assertion failed)

PR fortran/15164
* gfortran.dg/pr15164.f90: New test. Fixed in followup commit.

From-SVN: r88132

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 497d9bf59013c77ba306d9ccf6643aed798973a1..37c6b2736f34991720fd9022acb7ab518f1b2f91 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,7 +1,7 @@
 2004-09-26  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
 
        PR fortran/15164
-       * gfortran.dg/pr15164.f90: New test.
+       * gfortran.dg/pr15164.f90: New test. Fixed in followup commit.
 
 2004-09-26  Roger Sayle  <roger@eyesopen.com>
 

diff --git a/gcc/testsuite/gfortran.dg/pr15164.f90 b/gcc/testsuite/gfortran.dg/pr15164.f90
index a1f378897a4ff78452ae89c498ad76e34f877d4a..f4fef7069f7b4ff9d3336027daf0bd529ed70ccd 100644 (file)
--- a/gcc/testsuite/gfortran.dg/pr15164.f90
+++ b/gcc/testsuite/gfortran.dg/pr15164.f90
@@ -3,13 +3,14 @@
 ! 2004-09-26 sources
       module specfiles
       contains
-      subroutine split(i,o,lenout,n)
+      subroutine split(instring,outstrings,lenout,n,i)
       integer(kind=4),intent(in) :: lenout,n
-      character(len=*),intent(in) :: i
-      character(len=lenout),dimension(n),intent(out) :: o
-      integer(kind=4) :: j,k,l
+      character(len=*),intent(in) :: instring
+      character(len=lenout),dimension(n),intent(out) :: outstrings
+      integer(kind=4) :: i,j,k
       j=1; k=1
        outstrings(j)(k:k)=instring(i:i)
       return
       end subroutine split
       end module specfiles
+