20000412-1.f

来自「this is a gcc file, you can download it 」· F 代码 · 共 6 行

      subroutine aap(k)
      equivalence (i,r)
      i = k
      print*,r
      end