Fotran77 报错invalid character in name已有1人参与 Fotran77 报错invalid character in name如图所示,不知道为什么??Fotran77 报错invalid character in name如图所示,不知道为什么?? 8cb1cb1349540923caf429829958d109b2de49a8.jpg回复此楼» 猜你喜欢导师...
module m contains elemental function mytrim(x) result(y) character (len=*), intent(in) :: x character (len=len_trim(x)) :: z integer y z = trim(x) y = len(z) end function mytrim end module m ! program test_mytrim use m integer name(2) name = my...
modulemzimplicit nonetype,public,abstract::mz_tcharacter(len=64)::name!contains! procedure(dumpIntf), pass, deferred :: dumpend typetype,public,abstract::msav_tcharacter(len=64)::name=''end typeinterfacemodulefunctionDumpZone(z)result(sav)! import mz_t, msav_tclass(mz_...
这个应该是你的 子程序缩进问题，（1-3行有同样的无效字符错误）
character(len=*), intent(inout) :: iomsg end subroutine-!CHECK: .dt.t, SAVE, TARGET (CompilerCreated, ReadOnly): ObjectEntity type: TYPE(derivedtype) init:derivedtype(binding=.v.t,name=.n.t,sizeinbytes=0_8,uninstantiated=NULL(),kindparameter=NULL(),lenparameterkind=NULL(),component=...
v4l2: ioctl set mute failed: Invalid argument v4l2: ioctl query control failed: Invalid argument Could not find a UTF-8 locale, character keys beyond Latin-1 will not be handled. Opening video filter: [screenshot] === 分享5赞 java吧 Fgo账号卖家 有人能帮忙解决一下这个服务器启动失败的问题...
module m contains elemental function mytrim(x) result(y) character (len=*), intent(in) :: x character (len=len_trim(x)) :: z integer y z = trim(x) y = len(z) end function mytrim end module m ! program test_mytrim use m integer name(2) name = mytrim(["Fo...
modulemzimplicit nonetype,public,abstract::mz_tcharacter(len=64)::name!contains! procedure(dumpIntf), pass, deferred :: dumpend typetype,public,abstract::msav_tcharacter(len=64)::name=''end typeinterfacemodulefunctionDumpZone(z)result(sav)! import mz_t, msav_tclass(mz_t...
module m contains elemental function mytrim(x) result(y) character (len=*), intent(in) :: x character (len=len_trim(x)) :: z integer y z = trim(x) y = len(z) end function mytrim end module m ! program test_mytrim use m integer name(2) name = my...
module m contains elemental function mytrim(x) result(y) character (len=*), intent(in) :: x character (len=len_trim(x)) :: z integer y z = trim(x) y = len(z) end function mytrim end module m ! program test_mytrim use m integer name(2) name = mytrim(["Fo...