1! { dg-do compile }
2!
3program test
4  implicit none
5  real x4
6  double precision x8
7
8  x4 = 1.7
9  x8 = 1.7
10  write(*,*) complex(x4,z'1FFFFFFFF') ! { dg-error "too" }
11  write(*,*) cmplx(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
12  write(*,*) complex(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
13  write(*,*) dcmplx(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
14end program test
15