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   x4 = 1.7
   8   x8 = 1.7
   9   write(*,*) cmplx(x8,z'1FFFFFFFFFFFFFFFF')
  10   write(*,*) dcmplx(x8,z'1FFFFFFFFFFFFFFFF')
  11 end program test