summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/980729-0.f
blob: f0ca9da665c4f95c1d1e361e8211ddef8b6940db (plain)
1
2
3
4
5
6
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