robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.dg/g77/20000412-1.f

7 lines
105 B
Fortran
Raw Blame History

c { dg-do compile }
subroutine aap(k)
equivalence (i,r)
i = k
print*,r
end
Reference in New Issue View Git Blame Copy Permalink