[thirdparty/gcc.git] / gcc / testsuite / gfortran.dg / boz_12.f90

! { dg-do compile }
! 
program test
  implicit none
  real x4
  double precision x8
  x4 = 1.7
  x8 = 1.7
  write(*,*) cmplx(x8,z'1FFFFFFFFFFFFFFFF')
  write(*,*) dcmplx(x8,z'1FFFFFFFFFFFFFFFF')
end program test
Commit	Line	Data
6401bf9c FXC	1	! { dg-do compile }
	2	!
	3	program test
	4	implicit none
	5	real x4
	6	double precision x8
6401bf9c FXC	7	x4 = 1.7
6401bf9c FXC	8	x8 = 1.7
8dc63166 SK	9	write(,) cmplx(x8,z'1FFFFFFFFFFFFFFFF')
8dc63166 SK	10	write(,) dcmplx(x8,z'1FFFFFFFFFFFFFFFF')
6401bf9c	11	end program test