gcc/testsuite/gfortran.dg/pr32238.f90

   1 !PR fortran/32238
   2 ! { dg-do compile }
   3
   4 module bug_test
   5
   6 contains
   7   subroutine bug(c)
   8
   9   implicit none
  10
  11   integer, parameter :: fp = selected_real_kind(13)
  12   complex(kind=fp)              :: c(:,:)
  13   where( abs( aimag( c ) ) < 1.e-10_fp )                             &
  14   &    c = cmplx( real( c , fp ) , 0._fp , fp )
  15   where( abs( real( c , fp ) ) < 1.e-10_fp )                         &
  16   &    c = cmplx( 0._fp , aimag( c ) , fp )
  17
  18   return
  19   end subroutine bug
  20
  21 end module bug_test