diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-06 22:49:28 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2010-10-06 22:49:28 +0000 |
| commit | 6619e385fced24c8ed80fcdaf991c1cff7c12340 (patch) | |
| tree | 252bd2167b09dbc933d11334e13a380ee56fb72d /gcc | |
| parent | 6cf860a2ff7c643f1a277cc71c6416c42889f716 (diff) | |
| download | gcc-6619e385fced24c8ed80fcdaf991c1cff7c12340.zip gcc-6619e385fced24c8ed80fcdaf991c1cff7c12340.tar.gz gcc-6619e385fced24c8ed80fcdaf991c1cff7c12340.tar.bz2 | |
re PR fortran/45889 (Regression with I/O of element of allocatable array in derived type)
2010-10-06 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/45889
* gfortran.dg/alloc_comp_constraint_6.f90: New test.
From-SVN: r165069
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 | 21 |
2 files changed, 26 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 23919a3..441e565 100644 --- 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 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" } } |