Commit a267ed78 authored by Zolnierczuk, Piotr's avatar Zolnierczuk, Piotr
Browse files

small bug in new_com: ignore goto in keyboard mode

parent ac06d3ea

sources/new_com.F90

+1 −0
Original line number Diff line number Diff line
@@ -1187,6 +1187,7 @@ CONTAINS 
          goto 88881

       else

          write(6,*)'goto in keyboardmode ignored'

          goto 8888 ! ignore goto and go back

       endif

88883  continue

       close(kanal(ktop))