From 6619e385fced24c8ed80fcdaf991c1cff7c12340 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Wed, 6 Oct 2010 22:49:28 +0000 Subject: re PR fortran/45889 (Regression with I/O of element of allocatable array in derived type) 2010-10-06 Jerry DeLisle PR fortran/45889 * gfortran.dg/alloc_comp_constraint_6.f90: New test. From-SVN: r165069 --- 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 (limited to 'gcc') 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" } } -- cgit v1.1