type pe
real(8)::x
real(8)::vx
real(8)::vo
real(8)::vr
integer::gr
end type pe
type (pe), dimension(20):: f
real(8), dimension(20):: f_
real(8) :: e,c,pi
integer :: z
common /consts/ e,c,pi,z
common /particles_/ f_
а вот на этой
common /particles_/ f
gfortran -o "test_common" "test_common.f95"
test_common.f95:9.28:
type (pe), dimension(20):: f
1
Error: Derived type variable 'f' in COMMON at (1) has neither the SEQUENCE nor the BIND(C) attribute
Сборка завершилась с ошибкой.