Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr91553.f90
blob: 2d0b018dded8f45f216a1dbeca7f66b26d58e66e [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Code
contributed
by
Gerhard
Steinmetz
program p
complex z
(
1
)
z
=
(
1.0
,
2.0
)
*
[
real
::
(
3.0
+
4.0
)]
if
(
real
(
z
(
1
))
/=
7.
)
stop
1
if
(
aimag
(
z
(
1
))
/=
14.
)
stop
2
end