Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
compile
/
complex_1.f90
blob: 605ec665f4a92becb8adfb48a0340dc015c28ff6 [
file
] [
log
] [
blame
]
program test_gfortran2
Complex
(
8
)
::
g
,
zh
Real
(
8
)
::
g_q
g
=
zh
-
zh
/
cmplx
(
0.0
_8
,-
g_q
)
end
