1 files changed, 22 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr32238.f90 b/gcc/testsuite/gfortran.dg/pr32238.f90
new file mode 100644
index 000000000..2c88b3565
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr32238.f90
@@ -0,0 +1,22 @@
+!PR fortran/32238
+! { dg-do compile }
+! { dg-final { cleanup-modules "bug_test" } }
+
+module bug_test
+
+contains
+  subroutine bug(c)
+
+  implicit none
+
+  integer, parameter :: fp = selected_real_kind(13)
+  complex(kind=fp)              :: c(:,:)
+  where( abs( aimag( c ) ) < 1.e-10_fp )                             &
+  &    c = cmplx( real( c , fp ) , 0._fp , fp )
+  where( abs( real( c , fp ) ) < 1.e-10_fp )                         &
+  &    c = cmplx( 0._fp , aimag( c ) , fp )
+
+  return
+  end subroutine bug
+
+end module bug_test