代码搜索:implicit
找到约 5,250 项符合「implicit」的源代码
代码结果 5,250
www.eeworm.com/read/366702/2877091
f90 hollerith2.f90
! { dg-do run }
! Program to test Hollerith constant.
Program test
implicit none
integer i,j
real r, x, y
parameter (i = 4h1234)
parameter (r =
www.eeworm.com/read/366702/2877135
f90 enum_7.f90
! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c)
enumerator :: sun, mon = 2
enum, bind (c) ! { dg-error "Unexpected" }
enum
www.eeworm.com/read/366702/2877153
f90 argument_checking_5.f90
! { dg-do compile }
!
! PR fortran/30940
program test
implicit none
interface
subroutine foobar(x)
integer,dimension(4) :: x
end subroutine foobar
subroutine arr(y)
integer,dimension(1
www.eeworm.com/read/366702/2877156
f90 scalar_mask_1.f90
! { dg-do run }
program main
implicit none
real, dimension(2) :: a
a(1) = 2.0
a(2) = 3.0
if (product (a, .false.) /= 1.0) call abort
if (product (a, .true.) /= 6.0) call abort
if (sum (a
www.eeworm.com/read/366702/2877356
f90 generic_3.f90
! { dg-do compile }
! Testcase from PR 17713
module fit_functions
implicit none
contains
subroutine gauss( x, a, y, dy, ma )
double precision, intent(in) :: x
double precision, intent(
www.eeworm.com/read/366702/2877359
f90 char_reshape_1.f90
! Test reshape for character arrays.
! { dg-do run }
program main
implicit none
integer, parameter :: n = 20, slen = 9
character (len = slen), dimension (n) :: a, pad
integer, dimension (3) ::
www.eeworm.com/read/366702/2877630
f90 internal_io_unf.f90
! { dg-do compile }
!
! PR fortran/34654
!
! Disallow unformatted write to internal unit.
! Test case was contributed by Joost VandeVondele.
!
implicit none
CHARACTER :: a(3)
WRITE(a) 0 ! { dg-error "
www.eeworm.com/read/366702/2877695
f90 array_constructor_6.f90
! PR 12840. Make sure that array constructors can be used to determine
! the bounds of a scalarization loop.
! { dg-do run }
program main
implicit none
call build (11)
contains
subroutine build
www.eeworm.com/read/366702/2881184
c pr26865.c
/* { dg-do compile } */
/* { dg-options "-O2 -std=c99" } */
void
foo (void)
{
char *e = alloca (100); /* { dg-warning "implicit declaration|initialization makes" } */
}
www.eeworm.com/read/368544/9690024
cpp gridimplicit.cpp
// gridimplicit.cpp
//
// Grid-based implicit surface shape plugin for pbrt.
// Note this does *not* play well with texturing - u=v=0 everywhere.
// Use it with a pbrt line like
// Shape "gridimpli