gcc/testsuite/gfortran.dg/boz_complex_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fallow-invalid-boz" }
   3 program foo
   4
   5    implicit none
   6
   7    complex(4) z
   8
   9    z = complex(z'4444', 42)         ! { dg-warning "cannot appear in the" }
  10    if (real(z,4) /= 17476.0 .or. aimag(z) /= 42.0) stop 2
  11
  12    z = complex(z'44444400', 42.)    ! { dg-warning "cannot appear in the" }
  13    if (real(z,4) /= 785.062500 .or. aimag(z) /= 42.0) stop 3
  14
  15 end program foo