gcc/testsuite/gfortran.dg/scalarize_parameter_array_2.f90

   1 ! { dg-do compile }
   2 !
   3 ! Test the fix for PR45305. The if statements should simplify away so
   4 ! that 'I_do_not_exist' is not referenced.
   5 !
   6 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   7 !
   8 if (any (abs(bessel_jn([1,2], 1.0) - bessel_jn([1,2], 1.0)) &
   9          > epsilon(0.0))) &
  10   call I_do_not_exist()
  11
  12 if (any (abs(bessel_jn(1, 2, 1.0) - bessel_jn([1,2], 1.0)) &
  13          > epsilon(0.0))) &
  14   call I_do_not_exist()
  15 end