| 查看: 1069 | 回复: 1 | |||
[求助]
在linux下fortran，do while 循环不执行
|
|
fortran 代码 如下 implicit none real ran,tempran integer tord integer ord(60) logical flag integer newloop,ii call init_random_seed() do newloop=1,50 call random_number(ran) tempran=50.0*ran tord=floor(tempran)+1 flag=.true. do while(flag) if(newloop==1) then flag=.false. end if flag=.false. if(newloop/=1) then do ii=1,newloop-1 if(tord==ord(ii)) then flag=.true. exit end if end do end if end do ord(newloop)=tord write(*,*) tord end do stop end 子程序 init_random_seed() 是产生随机数种子的程序 以下是windows下和linux下的结果 这个程序出来的结果是 如果出现ord(i)==ord(z) (z<i)就会出现无限循环，但是在linux下程序却全部运行，即使出现ord(i)==ord(z) (z<i) 请问各位虫友，这是编译器的问题，还是其他什么原因？  捕获1.PNG  捕获2.PNG |
回复此楼» 猜你喜欢
现代”学阀”该如何界定
已经有11人回复
-
各位大神，目前国内有哪些比较好用的逆合成软件？
已经有15人回复
-
国社科系统bug了，是不是要放榜了？
已经有10人回复
-
课题组招2027级博士 上海工程技术大学 激光智能制造方向
已经有4人回复
-
上海工程技术大学 激光智能制造课题组 2027级博士研究生招生
已经有3人回复
-
上海工程技术大学激光智能制造课题组｜2027级博士研究生招生公告
已经有11人回复
-
申博发邮件
已经有11人回复
-
我的奶奶
已经有3人回复
2楼2016-05-28 18:43:58