1!PR fortran/32238
2! { dg-do compile }
3
4module bug_test
5
6contains
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
21end module bug_test
22