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