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