2010-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>

	PR fortran/45889
	* gfortran.dg/alloc_comp_constraint_6.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165069 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 23919a3..441e565 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-06  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR fortran/45889
+       * gfortran.dg/alloc_comp_constraint_6.f90: New test.
+
 2010-10-06  Nicola Pero  <nicola.pero@meta-innovation.com>
 
        Merge from 'apple/trunk' branch on FSF servers.

diff --git a/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90
new file mode 100644 (file)
index 0000000..657b724
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90
@@ -0,0 +1,21 @@
+! { dg-do compile )
+! PR45889 Regression with I/O of element of allocatable array in derived type 
+module cell
+  implicit none
+  private 
+  type, public:: unit_cell
+     integer                                             ::num_species
+     character(len=8), dimension(:),          allocatable::species_symbol
+  end type unit_cell
+  type(unit_cell),                            public, save::current_cell 
+  contains
+  subroutine cell_output
+    implicit none
+    integer::i
+    do i=1,current_cell%num_species
+       write(*,*)(current_cell%species_symbol(i))
+    end do
+    return
+  end subroutine cell_output
+end module cell
+! { dg-final { cleanup-modules "cell" } }