summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/g77/20000412-1.f
blob: af403ef9b8aa9e4220bc3b265270b7352fad1d63 (plain)
1
2
3
4
5
6
c { dg-do compile }
      subroutine aap(k)
      equivalence (i,r)
      i = k
      print*,r
      end