summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/boz_12.f90
blob: 4c5c750d5942282f44d109173f469873c94eb3c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
! { dg-do compile }
! 
program test
  implicit none
  real x4
  double precision x8

  x4 = 1.7
  x8 = 1.7
  write(*,*) complex(x4,z'1FFFFFFFF') ! { dg-error "too" }
  write(*,*) cmplx(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
  write(*,*) complex(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
  write(*,*) dcmplx(x8,z'1FFFFFFFFFFFFFFFF') ! { dg-error "too" }
end program test