robotux
/
rt_gccstream
1
0
Fork 0
Code Issues Pull Requests Releases Activity
rt_gccstream/gcc/testsuite/gfortran.fortran-torture/compile/complex_1.f90

6 lines
100 B
Fortran
Raw Permalink Blame History

program test_gfortran2
Complex(8) :: g, zh
Real(8) :: g_q
g = zh - zh/cmplx(0.0_8,-g_q)
end
Reference in New Issue View Git Blame Copy Permalink