Imported Upstream version 4.8.1

[platform/upstream/gcc48.git] / gcc / testsuite / gfortran.dg / g77 / 980729-0.f

c { dg-do compile }
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