| 查看: 965 | 回复: 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 |
回复此楼» 猜你喜欢
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
-
385分 生物学（071000）求调剂
已经有3人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有3人回复
-
318求调剂，计算材料方向
已经有8人回复
-
291求调剂
已经有25人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有6人回复
2楼2016-05-28 18:43:58
