代码搜索: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