test_general_dots Subroutine

subroutine test_general_dots()
   !!logs=.true.
   if(logs)call lala( 'diary(''test_general_dots.log'');')
   call lala( [ character(len=256) :: &
   & 'display(ones(80,1)''*61);display(''general expression dots'');               ', &
   & 'tally=[0];                                                                   ', &
   & 'a=magic(3);b=ones(3)*2;                                                      ', &
   & '                                                                             ', &
   & 'if a*2 = a.*b, tally=[tally, 0], else, tally=[tally, -1];                    ', &
   & '                                                                             ', &
   & 'if sum(abs(tally)) = 0,display(''general dots PASSED''),else,display(''general dots FAILED'');tally'])
   !!logs=.false.
end subroutine test_general_dots