Sign in
llvm
/
llvm-archive
/
a95f55d472d28a35cc4af5df7749473ca38ee187
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
complex_intrinsic_1.f90
blob: 3c299151e9e02e07c0e1d977ddc0678aa5bbedaa [
file
] [
log
] [
blame
]
!
Testcase
for
the COMPLEX intrinsic
!
{
dg
-
do
run
}
if
(
complex
(
1_1
,
-
1_2
)
/=
complex
(
1.0
_4
,
-
1.0
_8
))
call abort
if
(
complex
(
1_4
,
-
1.0
)
/=
complex
(
1.0
_4
,
-
1_8
))
call abort
end