[pf3gnuchains/gcc-fork.git] / gcc / testsuite / g77.f-torture / compile / 980729-0.f

c     Got ICE on Alpha only with -mieee (currently not tested).
c     Fixed by rth 1998-07-30 alpha.md change.
      subroutine a(b,c)
      b = max(b,c)
      end