gcc/testsuite/gfortran.dg/ubsan/pr101624.f90

! PR middle-end/101624
! { dg-do compile }
! { dg-options "-O2 -fsanitize=undefined" }

complex function foo (x)
  complex, intent(in) :: x
  foo = aimag (x)
end
program pr101624
  complex, parameter :: a = (0.0, 1.0)
  complex :: b, foo
  b = foo (a)
end