代码搜索：implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/162614/5521622
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/162614/5523302
f90 contained2.f90
! Program to check resolution of symbols with the same name
program contained2
implicit none
integer var1
var1 = 42
if (f1() .ne. 1) call abort
call f2()
if (var1 .ne. 42) call a
www.eeworm.com/read/162614/5523309
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/162614/5523367
f90 inquiry_1.f90
! Check that inquiry functions are allowed as specification expressions.
subroutine inquiry(x1)
implicit none
real, dimension(1:), intent(out) :: x1
real, dimension(1:size(x1)) :: x3
x3 = 0
www.eeworm.com/read/162614/5526004
f90 nested_reshape.f90
! { dg-do run }
! PR 20436: This used to give a runtime error.
program nested_reshape
implicit none
real :: k(8,2)
real :: o(8,2)
k = reshape((/1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0, &
www.eeworm.com/read/162614/5526042
f90 hollerith3.f90
! { dg-do compile }
! { dg-options "-w" }
! Program to test invalid Hollerith constant.
Program test
implicit none
integer i
i = 0H ! { dg-error "at le
www.eeworm.com/read/162614/5526172
f90 array_constructor_5.f90
! { dg-do run }
! PR22327
program array_constructor
implicit none
integer :: a(6), i
i = 6
a = (/ 1, 2, 3, 4, 5, i /)
do i = 1, 6
if (a(i) /= i) call abort()
end do
end
www.eeworm.com/read/162614/5526448
f90 nullify_2.f90
! { dg-do compile }
! PR fortran/25146
program i
implicit none
TYPE (a) t1 ! { dg-error "is being used before" }
nullify(t1%x) ! { dg-error "error in NULLIFY" }
end program
www.eeworm.com/read/162614/5528992
c c99-impl-int-1.c
/* Test for implicit int: in C90 only. */
/* Origin: Joseph Myers */
/* { dg-do compile } */
/* { dg-options "-std=iso9899:1999 -pedantic-errors" } */
extern foo; /* { dg-bogus "wa
www.eeworm.com/read/162614/5539319
cc 2.cc
// { dg-options "-fno-implicit-templates" }
// Copyright (C) 2004 Free Software Foundation, Inc.
//
// This file is part of the GNU ISO C++ Library. This library is free
// software; you can redistr