egcs snapshot crash -- check0.f

[Craig Burley]

This little program in my test suite crashes the egcs snapshot dated
19980328, the most recent one I've been able to conveniently build
and run g77 from:

check0.f:
--------
      logical l(10)
      integer i(10)
      goto (10,20),l
      goto (10,20),i
 10   stop
 20   end
--------

Compiling with or without optimization doesn't seem to matter.

It seems to be just a matter of expand_*_case and/or friends not
quite coping with an ERROR_MARK or two being passed.

Note that this case doesn't crash egcs 1.0.1, so it's a recently
introduced bug.  If I had a more recent snapshot up and running,
I'd debug it myself, which I'll do later if nobody gets around
to working on this.

        tq vm, (burley)

P.S. Dave Love, could you add this test case to the g77 `compile' set?