Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
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