1! { dg-do compile } 2! PR45889 Regression with I/O of element of allocatable array in derived type 3module cell 4 implicit none 5 private 6 type, public:: unit_cell 7 integer ::num_species 8 character(len=8), dimension(:), allocatable::species_symbol 9 end type unit_cell 10 type(unit_cell), public, save::current_cell 11 contains 12 subroutine cell_output 13 implicit none 14 integer::i 15 do i=1,current_cell%num_species 16 write(*,*)(current_cell%species_symbol(i)) 17 end do 18 return 19 end subroutine cell_output 20end module cell 21