------- Comment #3 from dominiq at lps dot ens dot fr 2010-03-30 18:29 -------
Reduced test:
module ward_lib
implicit none
type omega_procedures
procedure(number_particles_out), nopass, pointer :: number_particles_out
=> NULL()
procedure(number_flavor_states), nopass, pointer :: number_flavor_states
=> NULL()
end type omega_procedures
contains
subroutine quantum_numbers2 (physical, unphysical)
type(omega_procedures), intent(in) :: physical, unphysical
integer, dimension(physical%number_particles_out(), &
physical%number_flavor_states()) :: table_flavor_states
end subroutine quantum_numbers2
end module ward_lib
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43591
