MODULE m_type IMPLICIT NONE integer,parameter::n = 1 type kouzou real(8)::a(n) integer::l(n) end type kouzou END MODULE m_type ! MODULE m_subs USE m_type CONTAINS subroutine dataset(data_,m) implicit none integer,intent(in)::m type(kouzou),intent(out)::data_(m) data_(1)%a(1) = 3.0d+00 data_(1)%l(1) = 2 return end subroutine dataset END MODULE m_subs ! program test USE m_subs （以下略 （ここではm_typeをカスケードに呼んだが
