test_triu Subroutine

subroutine test_triu()

Arguments

None

Contents

Source Code

test_triu

Source Code

subroutine test_triu ()
   call lala( 'display(ones(80,1)''*61)')
   call lala( 'help triu')
   call lala( '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(''triu PASSED'');else,display(''triu FAILED'');tally ', &
  & ''])
end subroutine test_triu