From 1f1e3e697711f6fbd44d86ee64c2b9aa44896a1d Mon Sep 17 00:00:00 2001 From: jvdelisle Date: Wed, 6 Oct 2010 22:49:28 +0000 Subject: [PATCH] 2010-10-06 Jerry DeLisle 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 --- gcc/testsuite/ChangeLog | 5 +++++ .../gfortran.dg/alloc_comp_constraint_6.f90 | 21 +++++++++++++++++++++ 2 files changed, 26 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 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 + + PR fortran/45889 + * gfortran.dg/alloc_comp_constraint_6.f90: New test. + 2010-10-06 Nicola Pero 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" } } -- 2.7.4