Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
boz_12.f90
blob: 60a89522b93724e7e7287b45a542d945475aae36 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
program test
implicit
none
real x4
double
precision x8
x4
=
1.7
x8
=
1.7
write
(*,*)
cmplx
(
x8
,
z
'1FFFFFFFFFFFFFFFF'
)
write
(*,*)
dcmplx
(
x8
,
z
'1FFFFFFFFFFFFFFFF'
)
end
program test