代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2871225
c addrfunc2.c
// { dg-do run }
// { dg-options "-fms-extensions" }
// Test for implicit & on methods.
// Contributed by Jason Merrill .
struct A {
void f (int = 0) { }
};
int
main ()
{
void
www.eeworm.com/read/366702/2871645
c 900209_01.c
// { dg-do assemble }
// g++ 1.36.1 bug 900209_01
// g++ implicitly casts values whose types are "void*" to other pointer
// types (just as the language rules for C permit). Such implicit
// conver
www.eeworm.com/read/366702/2871707
c 900205_04.c
// { dg-do assemble }
// g++ 1.36.1 bug 900205_04
// g++ allows a class for which an implicit default X::X() constructor must
// be created (implicitly by the compiler) to be derived from another cl
www.eeworm.com/read/366702/2872319
c typedef2.c
// { dg-do assemble }
// Testcase from Alexander Zvyagin
// Check implicit conversion from string constants into typedefs
typedef char CHAR;
void f2(CHAR *s="");
www.eeworm.com/read/366702/2873251
f90 pr23373-1.f90
program main
implicit none
real, dimension (:), pointer :: x
x => null ()
x => test (x)
if (.not. associated (x)) call abort
if (size (x) .ne. 10) call abort
contains
function test (p)
www.eeworm.com/read/366702/2873303
f90 random_init.f90
! pr 15149
! verify the random number generator is functional
program test_random
implicit none
real :: r(5) = 0.0
call random_number(r)
if (all (r .eq. 0)) call abort
www.eeworm.com/read/366702/2873382
f90 io_end.f90
! Check we can cope with end labels in IO statements
program m
implicit none
integer i
do while (.true.)
read(*, *, end = 1) i
end do
1 continue
end program m
www.eeworm.com/read/366702/2876056
f substr_2.f
! { dg-do run }
! Check that substrings behave correctly even when zero-sized
implicit none
character(len=10) :: s, t
integer :: i, j
s = "abcdefghij"
t(:10) = s(1:)
www.eeworm.com/read/366702/2876065
f90 missing_parens_1.f90
! { dg-do compile }
! PR34325 Wrong error message for syntax error
program aa
implicit none
real(kind=8)::r1=0
character(25) :: a
a = 'I am not a )))))'')''.'
if ((((((a /= "I am not a )))))')'.")))))
www.eeworm.com/read/366702/2876163
f90 enum_6.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
integer :: i = 1
enum, bind (c)
enumerator :: sun, mon = 2
i = 2 ! { dg-error "Unexpected" }