代码搜索：Check
找到约 10,000 项符合「Check」的源代码
代码结果 10,000
www.eeworm.com/read/366702/2876351
f90 bounds_check_9.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! PR fortran/31119
!
module sub_mod
contains
elemental subroutine set_optional(i,idef,iopt)
integer, intent(out) :: i
integer, intent(in) :: idef
www.eeworm.com/read/366702/2876412
f90 bounds_check_12.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Different CHARACTER lengths" }
! Tests the fix for PR34396, where the non-constant string lengths in the
! array constructor were b
www.eeworm.com/read/366702/2876607
f90 bounds_check_11.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! { dg-shouldfail "Array bound checking" }
! PR fortran/33745
!
! Don't check upper bound of assumed-size array
!
program test
implicit none
intege
www.eeworm.com/read/366702/2876797
f90 bounds_check_1.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
! PR fortran/27524
integer :: res(1)
res = F()
if (res(1) /= 1) call abort
contains
function F()
integer :: F(1)
www.eeworm.com/read/366702/2876843
f90 bounds_check_6.f90
! { dg-do run }
! { dg-options "-fbounds-check" }
!
! Testcase for PR30655, we used to issue a compile-time warning
integer i(12), j
j = -1
i(0:j) = 42
end
www.eeworm.com/read/366702/2876930
f90 no_range_check_1.f90
! { dg-do run }
! { dg-options "-fno-range-check -O0" }
!
! This testcase arose from PR 31262
integer :: a
integer(kind=8) :: b
a = -3
b = -huge(b) / 7
a = a ** 73
b = 7894_8 * b - 78941_8
www.eeworm.com/read/366702/2876963
f90 bounds_check_4.f90
subroutine foo(n,x)
implicit none
integer, intent(in) :: n
complex(8), intent(out) :: x(n,*)
x(1,1) = 0.d0
x(n,1) = 0.d0
x(:,1) = 0.d0
x(2:,1) = 0.d0
x(:n-1,1) = 0.d0
x((/1,n/),1) =
www.eeworm.com/read/366702/2877094
f90 recursive_check_2.f90
! { dg-do compile }
! PR fortran/26551
function func2()
integer func2
func2 = 42
return
entry c() result (foo)
foo = barbar()
return
entry b() result (bar)
bar = 12
return
con
www.eeworm.com/read/366702/2877465
f90 write_check3.f90
! { dg-do run }
! PR29936 Missed constraint on RECL=specifier in unformatted sequential WRITE
! Submitted by Jerry DeLisle
program us_recl
real, dimension(5) :: array = 5.43
www.eeworm.com/read/366702/2877594
f90 write_check2.f90
! { dg-do compile }
! Check keyword checking for specifiers
! PR fortran/29452
character(len=20) :: str
write(13,'(a)',advance='yes') 'Hello:'
write(13,'(a)',advance='no') 'Hello:'
write(13