代码搜索:optional

找到约 6,947 项符合「optional」的源代码

代码结果 6,947
www.eeworm.com/read/366702/2876010

f90 missing_optional_dummy_2.f90

! { dg-do compile } ! Tests the fix for PR29321 and PR29322, in which ICEs occurred for the ! lack of proper attention to checking pointers in gfc_conv_function_call. ! ! Contributed by Olav Vahtras
www.eeworm.com/read/366702/2876534

f90 missing_optional_dummy_1.f90

! { dg-do run } ! Test the fix for PR26891, in which an optional argument, whose actual ! is a missing dummy argument would cause a segfault. ! ! Contributed by Paul Thomas ! lo
www.eeworm.com/read/366702/2876896

f90 missing_optional_dummy_5.f90

! { dg-do compile } ! { dg-options "-fdump-tree-original" } ! ! PR fortran/34848 ! ! This was before giving an ICE; additionally ! the "0" for the string size of the absent optional ! argument was mi
www.eeworm.com/read/366702/2876961

f90 optional_assumed_charlen_1.f90

! { dg-do compile } ! Tests the fix for PR29284 in which an ICE would occur in converting ! the call to a suboutine with an assumed character length, optional ! dummy that is not present. ! ! Contribu
www.eeworm.com/read/366702/2876971

f90 missing_optional_dummy_4.f90

! { dg-do compile } ! { dg-options "-fdump-tree-original" } ! ! PR fortran/34848 ! ! The "0" for the string size of the absent optional ! argument was missing. ! module krmod contains subroutine doi
www.eeworm.com/read/366702/2877018

f90 missing_optional_dummy_3.f90

! { dg-do compile } ! Tests the fix for PR29976, in which the call to CMPLX caused an ! ICE with an optional dummy for the imaginary part. ! ! Contributed by Francois-Xavier Coudert
www.eeworm.com/read/366702/2877155

f90 min_max_optional_5.f90

! More tests for MIN/MAX with optional arguments ! PR33095 ! ! { dg-do run } if (m1(3,4) /= 4) call abort if (m1(3) /= 3) call abort if (m1() /= 2) call abort if (m1(3,4) /= 4) call abort i
www.eeworm.com/read/366702/2877328

f90 min_max_optional_1.f90

! { dg-do run } IF (T1(1.0,1.0) .NE. (1.0,1.0) ) CALL ABORT() IF (T1(1.0) .NE. (1.0,0.0)) CALL ABORT() IF (M1(1,2,3) .NE. 3) CALL ABORT() IF (M1(1,2,A4=4) .NE. 4) CALL ABORT() CONTAINS COMPLEX FUNCTI
www.eeworm.com/read/366702/2877666

f90 elemental_optional_args_1.f90

! { dg-do compile } ! { dg-options "-pedantic" } ! Check the fix for PR20893, in which actual arguments could violate: ! "(5) If it is an array, it shall not be supplied as an actual argument to ! an
www.eeworm.com/read/366702/2877678

f90 size_optional_dim_1.f90

! { dg-do run } ! PR 30865 - passing a subroutine optional argument to size(dim=...) ! used to segfault. program main implicit none integer :: a(2,3) integer :: ires call checkv (ires, a) i