代码搜索：zero
找到约 10,000 项符合「zero」的源代码
代码结果 10,000
www.eeworm.com/read/366702/2876015
f90 fmt_zero_precision.f90
! { dg-do run }
! PR28354 Incorrect rounding of .99999 with f3.0 format specifier
! PR30910 ES format not quite right...
! Test case derived from PR. Submitted by Jerry DeLisle
www.eeworm.com/read/366702/2876032
f90 fmt_zero_check.f90
! { dg-do compile }
! PR fortran/32555
!
2050 FORMAT(0PF9.4)
2050 FORMAT(0F9.4) ! { dg-error "Expected P edit descriptor" }
end
www.eeworm.com/read/366702/2876701
f90 zero_sized_1.f90
! { dg-do run }
! Transformational functions for zero-sized array and array sections
! Contributed by Francois-Xavier Coudert
subroutine test_cshift
real :: tempn(1), temp
www.eeworm.com/read/366702/2876726
f90 zero_length_1.f90
! { dg-do run }
! PR libfortran/31210
program test
implicit none
integer :: l = 0
character(len=20) :: s
write(s,'(A,I1)') foo(), 0
if (trim(s) /= "0") call abort
contains
function fo
www.eeworm.com/read/366702/2877015
f90 zero_sized_2.f90
! { dg-do compile }
! Tests the fix for PR30514 in which the bounds on m would cause an
! error and the rest would cause the compiler to go into an infinite
! loop.
! Contributed by Tobias Burnus
www.eeworm.com/read/366702/2877083
f90 zero_length_2.f90
! { dg-do run }
character(len=1) :: s
character(len=0) :: s0
s = " "
s0 = ""
call bar ("")
call bar (s)
call bar (s0)
call bar (trim(s))
call bar (min(s0,s0))
contains
subroutine b
www.eeworm.com/read/366702/2877193
f90 write_zero_array.f90
! { dg-do run }
! PR30145 write statement fails to ignore zero-sized array
! Test case from PR, submitted by Jerry DeLisle
program zeros
implicit none
character(20) :: msg =
www.eeworm.com/read/366702/2877380
f90 zero_sized_3.f90
! { dg-do run }
! Testcase for PR libfortran/31001
implicit none
integer :: i, j, k
integer, allocatable :: mm(:)
logical, allocatable :: mask(:)
do i = 2, -2, -1
do k = 0, 1
all
www.eeworm.com/read/366702/2877681
f90 fmt_zero_digits.f90
! { dg-do run }
! Verify that when decimal precision is zero, no error.
! Submitted by Jerry DeLisle
program test
character(20) :: astr
50 FORMAT (d20.0)
astr = ""
wri
www.eeworm.com/read/473701/6833587