mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
21 lines
627 B
Fortran
21 lines
627 B
Fortran
! { 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
|