我有以下代码:
module scheme
type, abstract :: scheme_object
contains
procedure, pass :: generic_scheme_print => print_scheme_object
generic, public :: write (formatted) => generic_scheme_print
end type scheme_object
abstract interface
subroutine packageable_procedure( )
import scheme_object
end subroutine packageable_procedure
end interface
contains
subroutine print_scheme_object(this, unit, iotype, v_list, iostat, iomsg)
class(scheme_object), intent(in) :: this
integer, intent(in) :: unit
character(*), intent(in) :: iotype
integer, intent(in) :: v_list (:)
integer, intent(out) :: iostat
character(*), intent(inout) :: iomsg
iostat = 1
end subroutine print_scheme_object
subroutine packaged_cons( )
end subroutine packaged_cons
function make_primitive_procedure_object( proc1 ) result( retval )
class(scheme_object), pointer :: retval
procedure(packageable_procedure), pointer :: proc1
end function make_primitive_procedure_object
subroutine ll_setup_global_environment()
procedure(packageable_procedure), pointer :: proc1
class(scheme_object), pointer :: proc_obj_to_pack
proc1 => packaged_cons
proc_obj_to_pack => make_primitive_procedure_object( proc1 )
end subroutine ll_setup_global_environment
end module scheme
program main
end program main
此代码使用ifort 19.1.1.217 20200306可以正常编译,可以运行并且不执行任何操作(按预期方式进行。)>
但是,使用gfortran编译失败,并显示一条错误消息:
16 | subroutine print_scheme_object(this, unit, iotype, v_list, iostat, iomsg) | 1 Error: DTIO dummy argument at (1) must be an ASSUMED SHAPE ARRAY
将“ v_list”声明的长度更改为任何整数都会产生两个相同的消息:
16 | subroutine print_scheme_object(this, unit, iotype, v_list, iostat, iomsg) | 1 Error: DTIO dummy argument at (1) must be an ASSUMED SHAPE ARRAY 16 | subroutine print_scheme_object(this, unit, iotype, v_list, iostat, iomsg) | 1 Error: DTIO dummy argument at (1) must be an ASSUMED SHAPE ARRAY
问题出在哪里?
我有以下代码:模块方案类型,摘要:: scheme_object包含过程,传递:: generic_scheme_print => print_scheme_object常规,公共::写入(格式化)...