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