Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/any_loc.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { dg-do compile } ! { dg-options "-ffrontend-optimize" } ! PR fortran/80142 - the location on the expression of the ! unrolled any statement was not correctly set. ! Test case by Harald Anlauf. MODULE gfcbug140 implicit none integer ,parameter :: WV_NONE = 1 integer, parameter :: WV_CDV_4 = 23 integer, parameter :: WV_CDV_8 = 24 integer, parameter :: wv_CDV_list(2) = [ WV_CDV_4, WV_CDV_8 ] integer :: basis = WV_NONE contains subroutine wave_1d (x) real, intent(inout) :: x(:,:) integer :: oldbase oldbase = basis if (any (basis == wv_CDV_list(:))) then end if basis = oldbase end subroutine wave_1d !- subroutine mr_gp_mat (A) real, intent(inout) :: A (:,:) call wave_1d (A) end subroutine mr_gp_mat end module gfcbug140