fortran考試填空題每日一練(2020.01.03)

下列程序的運(yùn)行結(jié)果是（）。 
Program main 
 implicit none
 integer ::a=1
   integer ::b=2
 call add ( a )
   Call add ( b)
 Write(*,*) a , b
 Stop
  end 
Subroutine  add (sum) 
Implicit none 
integer :: sum
   sum=sum+1 
Return 
end 

下列程序的運(yùn)行結(jié)果是（）。 
Program test 
Implicit none 
Complex a,b,c 
A=(1.0,2.0) 
b= (2.0,4.0) 
c=a+b 
Write(*,*) c 
Stop 
end 

下列程序的運(yùn)行結(jié)果是（）。 
Program test 
Implicit none 
Integer::i 
Integer::a(5)=(/ (i, i=1,5) /) 
Integer::b(5)=0
      Where (a<3)
           b=a 
   End where 
Write(*,”(5(i3,1x))”) b 
end

下列程序的運(yùn)行結(jié)果是（）。 
Program test 
Implicit none 
Integer::i 
Integer::a(5) 
      Forall ( i=1:5 ) 
   A(I)=5 
End forall 
Write(*,*)a 
Stop 
end