gcc/testsuite/gfortran.dg/any_loc.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-ffrontend-optimize" }
   3 ! PR fortran/80142 - the location on the expression of the
   4 ! unrolled any statement was not correctly set.
   5 ! Test case by Harald Anlauf.
   6 MODULE gfcbug140
   7   implicit none
   8   integer ,parameter :: WV_NONE        =  1
   9   integer, parameter :: WV_CDV_4       =  23
  10   integer, parameter :: WV_CDV_8       =  24
  11   integer, parameter :: wv_CDV_list(2) = [ WV_CDV_4, WV_CDV_8 ]
  12   integer            :: basis          = WV_NONE
  13 contains
  14   subroutine wave_1d (x)
  15     real, intent(inout) :: x(:,:)
  16     integer             :: oldbase
  17     oldbase = basis
  18     if (any (basis == wv_CDV_list(:))) then
  19     end if
  20     basis = oldbase
  21   end subroutine wave_1d
  22   !-
  23   subroutine mr_gp_mat (A)
  24     real, intent(inout) :: A (:,:)
  25     call wave_1d (A)
  26   end subroutine mr_gp_mat
  27 end module gfcbug140