test_else Subroutine

subroutine test_else ()
   if(logs)call lala( 'diary(''else.log'');')
   call lala( 'display(ones(80,1)''*61);help else;tally=[0];')
   call lala( [ character(len=256) :: &
   & '                                                                         ', &
   & '                                                                         ', &
   & '                                                                         ', &
   !& 'if a+b=zeros(a), tally=[tally,0];display(''a-b is zero       '');else,tally=[tally,1];display(''a-b is NOT zero'');      ', &
   & 'if sum(tally)=0,display(''ELSE PASSED'');else,display(''ELSE FAILED'');tally ', &
   & ''])
end subroutine test_else