2 ! PR45889 Regression with I/O of element of allocatable array in derived type
6 type, public
:: unit_cell
8 character(len
=8), dimension(:), allocatable
::species_symbol
10 type(unit_cell
), public
, save::current_cell
12 subroutine cell_output
15 do i
=1,current_cell
%num_species
16 write(*,*)(current_cell
%species_symbol(i
))
19 end subroutine cell_output
21 ! { dg-final { cleanup-modules "cell" } }