blob: 60a89522b93724e7e7287b45a542d945475aae36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { 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
|