gcc/testsuite/gfortran.dg/pr91784.f90


1
2
3
4
5
6
7
8
9

! { dg-do run }
! PR fortran/91784
! Code originally contributed by Gerhard Steinmetz
program p
   complex :: x(1)
   x = (1.0, 2.0) * [real :: -(3.0 + 4.0)]
   if (int(real(x(1))) /= -7) stop 1
   if (int(aimag(x(1))) /= -14) stop 2
end