Sign in
gnu
/
gcc
/
501b3b9ef5be64294f6e51e1e2323b8c9a60adef
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
complex_intrinsic_2.f90
blob: 1327e4a952b3496182acec6c0bee6465dc37b7a2 [
file
] [
log
] [
blame
]
!
Testcase
for
the COMPLEX intrinsic
!
{
dg
-
do
compile
}
complex c
c
=
complex
(.
true
.,
1.0
)
!
{
dg
-
error
"must be INTEGER or REAL"
}
c
=
complex
(
1
)
!
{
dg
-
error
"Missing actual argument"
}
c
=
complex
(
1
,
c
)
!
{
dg
-
error
"must be INTEGER or REAL"
}
end