gcc/testsuite/gfortran.dg/boz_12.f90

   1 ! { dg-do compile }
   2 !
   3 program 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" }
  14 end program test