OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/45889 (Regression with I/O of element of allocatable array in derived type)

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

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

From-SVN: r165069
This commit is contained in:
Jerry DeLisle 2010-10-06 22:49:28 +00:00
parent 6cf860a2ff
commit 6619e385fc
2 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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.

21
gcc/testsuite/gfortran.dg/alloc_comp_constraint_6.f90 Normal file
View File

@ -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" } }